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

0 голосов
54 просмотров

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


Информатика (42 баллов) | 54 просмотров
Дан 1 ответ
0 голосов

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.

(56 баллов)