ПЕРЕВЕСТИ ЯЗЫК ПАСКАЛЬ НА ПИТОН var

a, b, c: integer;

begin

Writeln('Введите два числа');

Read(a, b);

repeat

if a > b then

a := a mod b

else b := b mod a

until (a = 0) or (b = 0);

c := a + b;

Writeln('Наибольший общий делитель: ', c);

end.

uma12    3   15.03.2021 06:45    1