Определить является ли данное целое число R четным - вопрос №680924 от AHOHUM3321 12.01.2021 10:22

Question

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

AHOHUM3321 · Answer

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