Задание: дописать полностью код программы приведенный в примере.
Пример:
count:=0;
while n > 0 do
begin
n:=ndiv10;
count:=count+1
end;

172

494

Посмотреть ответы 1

Ответы на вопрос:

андрон14

Информатика

4,5(78 оценок)

//1. переборный алгоритм евклида (цикл repeat)

var a, b, с: integer;

begin

write('введите два числа: ');

readln(a, b);

if a < b then с : = a + 1 else с : = b + 1;

repeat с : = с - 1

until (a mod с = 0) and (b mod с = 0);

write('nod = ', с)

end.

//2. алгоритм с вычитанием (цикл while)

var a, b: integer;

begin

write('a = ');

readln(a);

write('b = ');

readln(b);

while a < > b do

if a > b then

a : = a - b

else

b : = b - a;

writeln('nod = ', a);

end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.