Program Five; var num : integer; begin write('Введите целое число: '); readln (num); if (num mod 2 = 0) then writeln('Четное') else writeln('Нечетное'); end.
program Six; var month : integer; begin write('Введите номер месяца: '); readln(month); case month of 1, 2 : writeln('Зима'); 3..5 : writeln('Весна'); 6..8 : writeln('Лето'); 9..11 : writeln('Осень'); 12 : writeln('Зима'); end; end.
Answers & Comments
Verified answer
Program Five;var num : integer;
begin
write('Введите целое число: ');
readln (num);
if (num mod 2 = 0)
then writeln('Четное')
else writeln('Нечетное');
end.
program Six;
var month : integer;
begin
write('Введите номер месяца: ');
readln(month);
case month of
1, 2 : writeln('Зима');
3..5 : writeln('Весна');
6..8 : writeln('Лето');
9..11 : writeln('Осень');
12 : writeln('Зима');
end;
end.