Регистрация
соня1572
25.05.2023 21:03
Информатика
Есть ответ 👍

решите,информатичка убьет))​

193
317
Посмотреть ответы 2

Ответы на вопрос:

поля875
поля875
4,7(25 оценок)
храни тебя Аллах
pRoToTyPe95wF
pRoToTyPe95wF
4,4(93 оценок)
Var month: array[1..12]of string[10]= (' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ', ' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь '); procedure p(s: string); begin writeln(s); end; var n_m: integer; begin writeln(' введи номер месяца '); readln(n_m); case n_m of   1..12: p(month[n_m]);   else p(' такого месяца нет ');   end; case n_m of   1,3,5,7,8,10,12: p(' 31 день ');   4,6,9,11: p(' 30 дней ');   2: p(' 28 дней ');   end; case n_m of   12,1,2: p(' зима');   3,4,5: p(' весна');   6,7,8: p(' осень');   9,10,11: p(' лето');   end; end. пример: введи номер месяца5май31 деньвесна

Популярно: Информатика