НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ.
НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ 2 НАТУРАЛЬНЫХ ЧИСЕЛ!
Ответы на вопрос
Ответил anyuta201188
0
program prim; uses crt; var x,y:integer; begin writeln ('введите x,y'); readln (x,y); while x<>y do begin if x>y then x:=x-y else y:=y-x end; write ('НОД=',x); end.
Ответил komasilo
0
var a,c,b:integer;
begin
readln(a,b);
while b>0 do begin
a:=a mod b;
c:=a;a:=b;b:=c;
end;
writeln(a);
end.
Новые вопросы
Українська мова,
6 лет назад
Физика,
6 лет назад
Физика,
10 лет назад
Математика,
10 лет назад
Химия,
10 лет назад