Варвара
6 год назад
Напишите программу, которая вводит номер месяца и выводит название времени года. оператор выбора использовать не разрешается. При вводе неверного номера месяца должно быть выведено сообщение об ошибке. (ПАСКАЛЬ)
ОТВЕТЫ
Darina
Oct 24, 2020
Var A:integer;
Begin
Read(A);
A:= A mod 12;
if (A>=0)and(A<3) then Write('Зима');
if (A>2)and(A<6) then Write('Весна');
if (A>5)and(A<9) then Write('Лето');
if (A>8)and(A<=11) then Write('Осень');
End.
Begin
Read(A);
A:= A mod 12;
if (A>=0)and(A<3) then Write('Зима');
if (A>2)and(A<6) then Write('Весна');
if (A>5)and(A<9) then Write('Лето');
if (A>8)and(A<=11) then Write('Осень');
End.
788
