Напишите программу вычисления наибольшего общего делителя двух целых…

Question

Напишите программу вычисления наибольшего общего делителя двух целых чисел. А) с оператором repeat б) с оператором while (в интернетенеправильно) помогите пожалуйста

Answer 1

68

goscotch

16 марта 2023

var a,b: integer; begin readln (a,b); repeat if (a>b) then a: =a-b; if (b>a) then b: =b-a; until (a<>b); writeln ('gcd=', a); end. var a,b: integer; begin readln (a,b); while (a<>b) do begin if (a>b) then a: =a-b; if (b>a) then b: =b-a; end; writeln ('gcd=', a); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: