Определить является ли данное целое число R четным - вопрос №681601 от клинт 27.05.2020 22:58

Question

Другие предметы: Определить является ли данное целое число R четным (программа Паскаль)

клинт · Answer

USES Crt;
VAR
R: INTEGER;
BEGIN
ClrScr;
WriteLn('Введите число');
  ReadLn(R);
IF R MOD 2 = 0 Then WriteLn('Число четное')
                             Else WriteLn('Число не четное');
END.