Question

Составить программу (Паскаль). Ввести число. Если оно больше 45, разделить его на 2, если меньше или равно 10, то умножить на 5.​

Answer 1

Ответ:

program qq;

var

  n : integer;

begin

  readln(n); //Вводим число

  if n > 45 then //Если оно больше 45 то

     writeln((n / 2):0:3); //Выводим число делённое на 2

  if n <= 45 then //Если меньше или равно

     writeln(n * 5); //Выводим n * 5;

end.

Писал на fpc

Answer 2

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

pascalCopy code
program Main;
var
  num: integer;
begin
  writeln('Введите число: ');
  readln(num);

  if num > 45 then
  begin
    num := num div 2;
  end
  else if num <= 10 then
  begin
    num := num * 5;
  end;

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

Эта программа сначала запрашивает у пользователя ввод числа, затем проверяет его значение. Если число больше 45, оно делится на 2, а если число меньше или равно 10, то оно умножается на 5. Результат выводится на экран.