Информатика, вопрос задал zelenskiy36 , 7 лет назад

Помогите с информатикой

Приложения:

Ответы на вопрос

Ответил 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; -иначе н-м.

попробуй сам. если не правильно пиши исправлю.

Новые вопросы