Question

Составить программу проверяющую что введённое число делится без остатка на 3 ( Паскаль)

Answer 1

Program z1;
 Var a: integer;
 Begin
 writeln('Введите число:');
 readln(a);  
if (a mod 3)=0 then 
 writeln('Число кратно 3.') 
else 
writeln('Число не кратно 3.');
 end.

Answer 2

Для написания программы на Pascal, которая проверяет, делится ли введенное число без остатка на 3, вы можете использовать оператор деления и оператор условия. Вот пример программы:

program CheckDivisibilityBy3;

var
  number: Integer;

begin
  // Запрос ввода числа
  write('Введите число: ');
  readln(number);

// Проверка деления без остатка на 3
  if number mod 3 = 0 then
    writeln('Число ', number, ' делится на 3 без остатка.')
  else
    writeln('Число ', number, ' не делится на 3 без остатка.');
end.

В этой программе мы сначала объявляем переменную `number`, которая будет содержать введенное число. Затем мы запрашиваем у пользователя ввод числа с помощью `readln`.

Далее мы используем оператор деления с остатком `%` (или `mod` в Pascal) для проверки, делится ли введенное число на 3 без остатка. Если остаток от деления равен нулю, то число делится на 3 без остатка, и мы выводим сообщение об этом. В противном случае, выводим сообщение, что число не делится на 3 без остатка.

Программа проста и понятна. После ввода числа она немедленно сообщит вам, делится ли число на 3 без остатка или нет.