Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.