Я уже отвечал вашему однокласснику, видимо ;) Ответ - -16
По формуле косинуса
а там уже дальше легко
Program yrok;
var a:integer;
begin
writeln ('Введите месяц');
readln(a);
if a=1
then writeln('январь')
else if a=2
then writeln('Февраль')
else if a=3
then writeln('Март')
else if a=4
then writeln('Апрель')
else if a=5
then writeln('Май')
else if a=6
then writeln('Июнь')
else if a=7
then writeln('Июнь')
else if a=8
then writeln('Август')
else if a=9
then writeln('сентябрь')
else if a=10
then writeln('октябрь')
else if a=11
then writeln('ноябрь')
else if a=12
then writeln('декабрь')
else writeln('такого месяца нет');
end.
2 П0 0 П1 ИП0 ИП1 + П1 ИП0 2 + П0 1 0 1 - x>=0 04 ИП1 ^ 3 <-> x^y С/П