Question

Напишите пожалуйста в паскале 5 и 6 задачи.

Answer 1

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.