Question

Записать на языке Паскаль следующие выражение если число кратно 3, тогда вывести на экран ''да'', иначе вывести ''нет''

Answer 1

begin

 var a := ReadInteger();

 Print(a mod 3 = 0? True: False)

end.

Answer 2

If a mod 3 =0 then writeln(‘Да’)
Else writeln(‘Нет’);

Answer 3

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

pascalCopy code
program CheckIfMultipleOfThree;

var
  num: Integer;

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

  if num mod 3 = 0 then
    writeln('да')
  else
    writeln('нет');
end.

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