Question

ДАЮ 95 БАЛЛОВ! Составьте решение задачи в паскале! Дано целое число. Если оно положительное, то утроить его; если отрицательное, то прибавить к нему 3; если нулевое, то заменить его на 5. Вывести полученное число

Answer 1

Pascal

Program If3;

Var

A:Integer;

Begin

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

ReadLn(A);

If A > 0 Then

WriteLn(A * 3)

Else

If A < 0 Then

WriteLn(A + 3)

Else

WriteLn(5);

End.

Answer 2

Для составления решения задачи на языке Паскаль, нам потребуется описание алгоритма с использованием соответствующих условных операторов. Вот пример решения задачи:

pascalCopy code
program Main;

var
  inputNumber, result: integer;

begin
  // Введите целое число
  writeln('Введите целое число: ');
  readln(inputNumber);
  
  // Проверяем условия и применяем операции в зависимости от значения числа
  if inputNumber > 0 then
    result := inputNumber * 3
  else if inputNumber < 0 then
    result := inputNumber + 3
  else
    result := 5;
  
  // Выводим полученное число
  writeln('Результат: ', result);
end.

Обратите внимание, что в данном примере ввод числа осуществляется пользователем через стандартный ввод, а вывод результата происходит в командной строке. Вы можете скомпилировать и запустить этот код в среде разработки, поддерживающей язык Паскаль, чтобы увидеть результат. Входное число будет вводиться с клавиатуры, и программа выдаст соответствующий результат в зависимости от его значения.