Ответы на вопрос:
На плюсик нажимаешь и появляются новые листы , в которых можно делать отдельные таблицы)
var a,b: integer;
function f(a,b: integer): integer;
begin
if (a< > 0) and (b< > 0) then begin
if (a> b) then
a: =a mod b else
b: =b mod a;
f(a,b);
end else
writeln(abs(a-b));
end;
begin
writeln('введите 2 натуральных числа');
readln(a,b);
write('нод(',a,',',b,') = ');
f(a,b);
end.
Популярно: Информатика
-
lolololololf18.04.2022 13:08
-
Aliya551120.05.2020 16:04
-
Капка34405.05.2021 08:28
-
JokeHa19.08.2021 20:49
-
kirichmix14.12.2021 02:48
-
olgazdobickaya128.10.2022 22:04
-
looolll2k1730.01.2022 22:30
-
YULIAJUICE13.01.2022 19:13
-
oliaputliar22.08.2020 01:25
-
neleachibzii16.04.2023 14:32