Question

Здравствуйте. Задача по информатике, нужно составить программу на языке Паскаль Ввести число. Если оно кратно 3, разделить его на 4, в противном случае умножить на 5.​

Answer 1

Ответ:

Pascal

var

 a: integer;

 b: double;

begin

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

 readln(a);

 if a mod 3 = 0 then

   b:=a/4

 else

   b:=a*5;

 writeln(b:2:2)

end.

Answer 2

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

pascalCopy code
program DivideOrMultiply;
var
    num: integer;
begin
    writeln('Введите число: ');
    readln(num);
    if (num mod 3 = 0) then
        writeln('Результат деления: ', num div 4)
    else
        writeln('Результат умножения: ', num * 5);
end.

Программа запрашивает у пользователя ввести число, затем проверяет, делится ли оно на 3 без остатка. Если да, то выводит результат деления на 4, в противном случае умножает число на 5 и выводит результат.