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.

Answer 3

Вот пример решения данной задачи на языке Pascal:

pascalCopy code
program IncreaseOrDecrease;
var
  number: Integer;
begin
  writeln('Введите число: ');
  readln(number);

  if number > 3 then
    number := number + 10
  else
    number := number - 10;

  writeln('Результат: ', number);
end.

В этом примере мы считываем число с помощью readln и затем проверяем условие с помощью оператора if. Если число больше 3, то увеличиваем его на 10 с помощью операции сложения. Иначе, если число меньше или равно 3, уменьшаем его на 10 с помощью операции вычитания. Затем выводим результат с помощью writeln.