Ответы и объяснения

2013-03-21T11:17:02+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var
    S: real;
    i: integer;

begin
    for i := 1 to 30 do
        s := s + cos(i);
    writeln(s);
end.