Question

Написать программу (паскаль) которая проверяет делится ли на три целое число введённое с клавиатуры. Введите целое число и нажмите enter 451 Число 451 нацело не делится

Answer 1

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите целое число и нажмите enter');
  if n mod 3=0 then Writeln('Число ',n,' нацело делится на 3')
  else Writeln('Число ',n,' нацело не делится на 3')
end.

Answer 2

Для написания программы на Pascal, которая проверяет, делится ли введенное с клавиатуры целое число на три, следуйте инструкциям ниже:

pascalCopy code
program CheckDivisibilityByThree;

var
  num: Integer;

begin
  writeln('Введите целое число и нажмите Enter: ');
  readln(num);

  if num mod 3 = 0 then
    writeln('Число ', num, ' делится нацело на 3.')
  else
    writeln('Число ', num, ' нацело не делится на 3.');
end.

Скопируйте этот код в среду программирования Pascal, сохраните файл с расширением .pas, скомпилируйте и запустите программу. После выполнения она попросит вас ввести целое число с клавиатуры, а затем выдаст результат проверки.