Задачи паскаль, помогите пожалуйста кто. 1, Напишите программу, реализующую…

Question

58

Задачи паскаль, помогите пожалуйста кто. 1, Напишите программу, реализующую следующие вычисления. Дан номер месяца — целое число в диапазоне 1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т.д.). Вывести название соответствующего времени года ( «зима» , «весна» , «лето» , «осень»).

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

divan87 · Accepted Answer

48

divan87

26 апреля 2023

1. var n: integer; begin repeat writeln ('Введите номер месяца [1… 12]'); readln (n); until n in [1… 12]; case n of 1: writeln ('January'); 2: writeln ('February'); 3: writeln ('March'); 4: writeln ('April'); 5: writeln ('May'); 6: writeln ('June'); 7: writeln ('July'); 8: writeln ('August'); 9: writeln ('September'); 10: writeln ('October'); 11: writeln ('November'); 12: writeln ('December'); end; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: