Регистрация
mashakaer
01.08.2021 18:55
Информатика
Есть ответ 👍

на фотке что нарисована​

223
282
Посмотреть ответы 1

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

scattdipsizeoya3gc
scattdipsizeoya3gc
4,6(32 оценок)
1. современный эффективный код pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var (x,y): =readinteger2('введите через пробел два числа: ');   if (x< 0) or (y< 0) then writeln('ввод отрицательных чисел недопустим')   else begin       while y> 0 do (x,y): =(y,x mod y);       writeln('нод=',x)       end end. примеры введите через пробел два числа: 14 -2 ввод отрицательных чисел недопустим введите через пробел два числа: 32 76 нод=4 2. традиционный "школьный" код var   x,y,t: integer; begin   write('введите через пробел два числа: ');   read(x,y);   if (x< 0) or (y< 0) then writeln('ввод отрицательных чисел недопустим')   else begin       while y> 0 do begin           x: =x mod y;           t: =x; x: =y; y: =t           end;       writeln('нод=',x)       end end.

Популярно: Информатика