Question

Дано число. Если оно больше 3, то увеличить число на 10, иначе уменьшить на 10

Решить в Паскале

Answer 1

Pascal:

var N: integer;

begin

write('Введите число N=');

read(N);

if N>3 then begin

N:=N+10;

writeln('Увеличиваем число на 10');

end

else begin

N:=N-10;

writeln('Уменьшаем число на 10');

end;

writeln('Новое значение числа N=',N);

end.