P=a+b+c
a мы щитаем как один нужно 4 раза умножить
а*a*a*a=4
b*b*b*=3
c*c*c*c*c=5
Var n:integer;
begin
repeat
read(n);
if n<1 or n>12 then writeln('Неверный номер месяца');
until n=>1 and n<=12 ;
case n of
1: writeln('Этот месяц - Январь, время года - зима.');
2: writeln('Этот месяц - Февраль, время года - зима.');
3: writeln('Этот месяц - Март, время года - весна.');
4: writeln('Этот месяц - Апрель, время года - весна.');
5: writeln('Этот месяц - Май, время года - весна.');
6: writeln('Этот месяц - Июнь, время года - лето.);
7: writeln('Этот месяц - Июль, время года - лето.');
8: writeln('Этот месяц - Август, время года - лето.');
9: writeln('Этот месяц - Сентябрь, время года - осень.');
10: writeln('Этот месяц - Октябрь, время года - осень.');
11: writeln('Этот месяц - Ноябрь, время года - осень.');
12: writeln('Этот месяц - Декабрь, время года - зима.');
end;
end.
Как то раз анонимщик гулял в сети. Папа ему говорил не заходи в соц. сети, а анонимщик не послушал отца и залез в соц. сеть. Анонимщику было весело но его заразили вирусы. Он быстро вышел из соц сети и вирусы исчезли. Вот так слушатели анонимщик спас себя от вирусов.
Не заходите в соц. сети они опасны
256 вариантов - это 1 байт. 15 байт. И еще буквы