Ввести название месяца и вывести на экран время года Pascal
Ответы на вопрос
Ответил unq
0
var n:integer;
begin
cls;
writeln ('Введите номер месяца');
readln (n);
if (n=1) or (n=2) or (n=12) then
writeln ('Зима')
else
if (n=3) or (n=4) or (n=5) then
writeln ('Весна')
else
if (n=6) or (n=7) or (n=8) then
writeln ('Лето')
else
writeln ('Осень');
end.
Новые вопросы
Литература,
2 года назад
Химия,
2 года назад
Геометрия,
9 лет назад
Математика,
9 лет назад
Математика,
9 лет назад