Составить программу для вычисления cos1 + cos2 + cos3 + …+ cos30.

Nakonechna21 Nakonechna21    3   19.05.2019 00:30    2

Ответы
одиннадцать1 одиннадцать1  12.06.2020 05:58

var
    S: real;
    i: integer;

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика