Question

с клавиатуры вводится одно число. вывести на экран слово да, если оно делится на 2 и на 4 и слово нет, если не делится. паскаль

Answer 1

var

x : integer;//если нужно вещественное просто смените тип данных

begin

readln(x);

if x mod 4 = 0 then writeln('да')

else writeln('нет');

end.

Answer 2

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

pascalCopy code
program CheckDivisibility;

var
  number: integer;

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

  if (number mod 2 = 0) and (number mod 4 = 0) then
    writeln('да')
  else
    writeln('нет');
end.

В данном примере программа запрашивает ввод числа с клавиатуры, а затем проверяет, делится ли это число на 2 и на 4. Если число делится и на 2, и на 4, то выводится слово "да", в противном случае выводится слово "нет".