Программа с НОД
var t,t1,x,y,z:integer;
Function NOD(a, b: integer): integer;
Begin If a=b then NOD:=a
else if a>b then NOD:=NOD(a-b, b)<span>
Else NOD:=NOD(a, b-a);
</span>End;
begin
writeln('Введите 2 числа');
readln(x,y);
t:=NOD(X,Y);
writeln(t);
end.<span>
</span>
Ответ:
Уберите точку с запятой. перед else
Объяснение:
If <Операторы>
else <Операторы>
Позиционная наша обычная которой пользуемся десять - 10
непозиционная римская десять - XX