Question

Логической переменной p присвоить значение true, если введенное вами число делится без остатка на 3 и false в противном случае. Вывести значение переменной p на экран. В паскаль срочно

Answer 1

var a:integer; p:boolean;

begin

readln(a);

p:=a mod 3=0;

writeln(p);

end.

Пример:

10

FALSE

Answer 2

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

pascalCopy code
program CheckDivisibilityByThree;
var
  p: boolean;
  number: integer;

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

  { Проверяем, делится ли число без остатка на 3 }
  if number mod 3 = 0 then
    p := true
  else
    p := false;

  { Выводим значение переменной p на экран }
  writeln('Значение переменной p: ', p);
end.

В этой программе мы объявляем переменную p с типом boolean, которая будет хранить результат проверки. Затем мы считываем число с помощью readln() и проверяем его на делимость без остатка на 3 с помощью оператора if. Если условие number mod 3 = 0 истинно, то присваиваем p значение true, иначе - false. В конце выводим значение переменной p на экран с помощью writeln().