Выполните алгоритм для заданных чисел начало ввод x y x=y да нет вывод x x больше y да нет x=x-y y=y-x стрелка вверх к вводу

285

458

Посмотреть ответы 2

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

nastyarybinskap0ai9q

Информатика

4,6(76 оценок)

что то типо напишите нормально или фото.

var x,y: integer; begin cls; read(x,y); if x = y thenwrite(x)else if x > y then x: =x-y else y: =y-x; readln; end.

Danefremov03

Информатика

4,5(31 оценок)

Var n,m: integer; mn: set of integer; b: boolean; begin write('n = '); readln(n); write('m = '); readln(m); mn: =[]; while n> 0 do begin mn: =mn+[n mod 10]; n: =n div 10; end; b: =false; while m> 0 do begin if (m mod 10) in mn then b: =true; m: =m div 10; end; if b then writeln('да') else writeln('нет'); end. пример: n = 13579 m = 6541 да