Question

Составить программу на языке Паскаль: С клавиатуры вводится любое целое число (тип integer). Определить (вывести на экран сообщение), является ли это число кратным 3.Пожалуйста быстрее!!! ​

Answer 1

Var a:real;
begin
write (‘ Введи число a’);
readln (a);
If a mod 3= 0 then
write (‘ число кратно трём ‘)
else
write (‘число не кратно трём ‘);
end.

Answer 2

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

pascalCopy code
program CheckMultipleOfThree;

var
  number: Integer;

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

  if number mod 3 = 0 then
    writeln('Число является кратным 3.')
  else
    writeln('Число не является кратным 3.');

  readln;
end.

Программа запрашивает у пользователя ввод целого числа. Затем она проверяет, делится ли введенное число на 3 без остатка, используя оператор деления с остатком mod. Если число делится на 3 без остатка, программа выводит сообщение "Число является кратным 3." В противном случае выводится сообщение "Число не является кратным 3."