Var
A:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(A);
A:=A mod 12;
Case A of
0,1,2:WriteLn('Зима');
3,4,5:WriteLn('Весна');
6,7,8:WriteLn('Лето');
9,10,11:WriteLn('Осень')
End
End.
загадать число прибавить 20 +10- задуманое число получиться то что у вас плучится решать алгоритм нужно ивам
5 единиц
Пишешь в ответе так: 11111
На горбушку) там много мастеров)