USES Crt;
VAR
R: INTEGER;
BEGIN
ClrScr;
WriteLn('Введите число');
ReadLn(R);
IF R MOD 2 = 0 Then WriteLn('Число четное')
Else WriteLn('Число не четное');
END.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
