Question

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

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

Answer 1

Ответ:

var n:integer;

begin

writeln('Введите число');

readln(n);

if n > 3 then

  begin  

 n:= n + 10;  

 end

else begin n:= n -10;

end;

writeln(n);

end.

Answer 2

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.