Регистрация
gamer3106
10.09.2021 01:25
Информатика
Есть ответ 👍

Информатикаа 8 класс С таблицы.​

172
459
Посмотреть ответы 1

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

kalinkamalinka369
kalinkamalinka369
4,4(21 оценок)

Держи вводи 2 числа и находи нод

Объяснение:

var k, l, n: integer;   function nod (var a,b: integer): integer; var c: integer; begin repeat if a > b then a := a mod b else b := b mod a; until (a = 0) or (b = 0);   nod := a + b; end;   begin   writeln ('Введите два числа: '); readln (k, l);   n := nod (k, l);   writeln ('НОД = ', n);   readln end.

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