Напишите пожалуйста в паскале 5 и 6 задачи.
Напишите пожалуйста в паскале 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.
Не нашли ответ?
Похожие вопросы