Предмет: Информатика,
автор: vlad1chka
Составьте программу которая запрашивает номер месяца целое число от одного до 12 Выводит на экран название поры года
Информатика Паскаль СРОЧНО!!!!
Ответы
Автор ответа:
10
Код программы:
var a:integer;
begin
writeln('Введите номер месяца');
readln(a);
case a of
1:writeln('Январь');
2:writeln('Февраль');
3:writeln('Март');
4:writeln('Апрель');
5:writeln('Май');
6:writeln('Июнь');
7:writeln('Июль');
8:writeln('Август');
9:writeln('Сентябрь');
10:writeln('Октябрь');
11:writeln('Ноябрь');
12:writeln('Декабрь');
end;
end.
Автор ответа:
11
program Year;
var a: integer;
begin
read(a);
if (a = 1) or (a = 2) or (a = 12) then
write('Зима');
if (a >= 3) and (a <= 5) then
write('Весна');
if (a >= 6) and (a <= 8) then
write('Лето');
if (a >= 9) and (a <= 11) then
write('Осень');
end.
Похожие вопросы
Предмет: Математика,
автор: PilotMaxPlay
Предмет: Химия,
автор: nzstya
Предмет: Химия,
автор: МамаКриминал1
Предмет: Математика,
автор: azha15151
Предмет: Алгебра,
автор: nicoooko