Question

Написать программу в Паскале: "Ввести число. Если оно четное,разделить его на 4, если нечетное -умножить на 5"

Answer 1

Ответ:

program dadaya;  

var a:integer;

b:real;

begin  

write(' введите заданное число ');  

read(a);  

if a mod 2 = 0

then b:= a / 4  

else b:= a * 5;

write(' Полученный ответ = ', b:5:2);

end.

Объяснение:

Answer 2

Конечно, вот пример программы на Паскале, который выполняет указанные действия:

pascalCopy code
program NumberOperation;

var
  number: integer;

begin
  writeln('Введите число:');
  readln(number);

  if number mod 2 = 0 then
  begin
    number := number div 4;
    writeln('Число четное. Результат деления на 4:', number);
  end
  else
  begin
    number := number * 5;
    writeln('Число нечетное. Результат умножения на 5:', number);
  end;

  readln;
end.

В этой программе мы сначала запрашиваем у пользователя ввод числа. Затем мы используем оператор if для проверки, является ли число четным (number mod 2 = 0). Если число четное, мы выполняем деление на 4 и выводим результат. Если число нечетное, мы выполняем умножение на 5 и выводим результат.

Программа ожидает, что пользователь введет целое число и нажмет клавишу Enter. Затем программа выведет результат операции и остановится, ожидая нажатия клавиши Enter, чтобы закрыть окно программы.