Напишите программу на языке Паскаль, которая будет вычислять наибольший общий делитель для двух целых чисел
а) с помощью repeat
б) с помощью while
Ответы
Ответ дал:
0
а)
var a,b:integer;
begin
read(a,b);
repeat
if a>b then
a:=a-b
else
b:=b-a;
until (a=b);
write(a);
end.
б)
var a,b:integer;
begin
read(a,b);
while (a<>b) do
if a>b then
a:=a-b
else
b:=b-a;
write(a);
end.
Ответ дал:
0
Спасибо огромное!!!
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад