Ответы на вопрос:
объяснение:
если нужно найти наибольший общий делитель, то так:
program nod;
var a,b: integer;
begin
write ('введите два натуральных числа');
readln(a,b);
while a< > b do
begin
if a> b then a: =a-b;
else b: =b-a;
end;
writeln('нод=',a);
end.
Популярно: Информатика
-
Dmitry7006.04.2020 11:59
-
doinak8817.04.2020 07:53
-
kuzma7120.07.2022 17:13
-
Bekarys200222.12.2020 22:27
-
ivettapopova04513.01.2023 12:34
-
счасливыйребенок15.02.2020 21:01
-
УрсаПинкиПай04.07.2022 03:17
-
seraoki55723.10.2021 11:38
-
fgk20012.04.2023 11:01
-
ывцым24.06.2023 17:43