Какая книга и как зовут автора книги
Input A,B
if a>b then print a-b else print a+b
end
var x: integer;
begin
write('Введите число: ');
readln(x);
if x mod 2=0 then write('число четное')
else write('число нечетное');
end.
Var a,b,c,x :integer;
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then
a:=a-b
else b:=b-a;
Result:=a;
end;
begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
<span>end.</span>
1(54/2=27) 2(27+1=28) 1(28/2=14) 2(14+1=15) 2(15+1=16) т.е ответ(1,2,1,2,2)