Помогите с информатикой
Приложения:
Ответы на вопрос
Ответил Anno2205
0
Ответ:
составлю на Pascal ABC
program c;
Var m,n:integer;
begin
m:=54; n:=16;
while n=m do begin
if m>n then m:=m-n else n:=n-m;
end;
end.
Объяснение:
while n=m do begin- пока м=н выполнять это действие
if m>n then m:=m-n- если м>н тогда нужно м-н
else n:=n-m; -иначе н-м.
попробуй сам. если не правильно пиши исправлю.
Новые вопросы
Математика,
8 лет назад