По введенному с клавиатуры номеру месяца определить, к какому времени года он от...

July 2022 1 10 Report

По введенному с клавиатуры номеру месяца определить, к какому времени года он относится и какие месяцы являются для данного предыдущим и последующим. Составить программу в Паскале.

Answers & Comments

Giammy // PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
var mn:=Arr('январь','февраль','март','апрель','май','июнь',
      'июль','август','сентябрь','октябрь','ноябрь','декабрь');
var n:=ReadInteger('Номер месяца');
case n of
12,1,2:Write('Зима');
3,4,5:Write('Весна');
6,7,8:Write('Лето');
9,10,11:Write('Осень');
else begin
    Writeln('Неверный номер');
    exit
    end
end;
Writeln(', ',mn[n-1],', предшествующий ',n=1?mn[11]:mn[n-2],
      ', следующий ',n=12?mn[0]:mn[n])
end.

Пример
Номер месяца 2
Зима, февраль, предшествующий январь, следующий март

1 votes Thanks 0

Answers & Comments

pust dano n proizvolnyh tochek ploskosti abscissy i ordinaty kotoryh zapisany

sostavit programmu kotoraya dlya lyubogo naturalnogo chisla pechataet na estestven

vvedite tri chisla esli oni mogut byt dlinami storon ostrougolnogo treugolnik

reshit uravnenie ax3bx dlya proizvolnyh a b sostavit programmu na paskale

na koordinatnoj ploskosti zadany 15 proizvolnyh tochek koordinaty kotoryh ne

рекомендуемые вопросы

Helpful Links

Helpful Social