Question

В паскале дано число, если оно кратно 5,то умножить его на 10. Написать программу.

Answer 1

Program a1;
Var a:integer
Begin
Writeln ('Введите число');
Readln(a);
If a mod 5 =0 then writeln (a*10);
End.

Answer 2

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

program PascalExample;
var
  x: integer;
begin
  writeln('Введите число:');
  readln(x);
  if x mod 5 = 0 then
    x := x * 10;
  writeln('Результат:', x);
end.

Код сначала объявляет переменную `x` типа `integer`, которая будет хранить введенное число. Затем он выводит на экран сообщение 'Введите число:' и считывает значение `x` с клавиатуры. Далее он проверяет, делится ли `x` на 5 без остатка, используя оператор `mod`, который возвращает остаток от деления. Если условие истинно, то `x` умножается на 10. Наконец, код выводит на экран сообщение 'Результат:' и значение `x`.