Программа евклида в паскаль где нод 40 и 64

synnjhcx synnjhcx    3   23.07.2019 17:03    1

Ответы
рксский рксский  07.09.2020 19:25
PROGRAM P_1;
VAR
A,B: INTEGER;
BEGIN
A:=40;
B:=64;
REPEAT
IF A>B THEN A:=A-B
ELSE B:= B-A;
Until A=B;
WRITELN ('NOD = ' , A);
END.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика