Renat Yahin

Pascal, Delphi, c++

Образование

Время консультирования

Не указано

Рассказать друзьям

Понравился эксперт? Порекомендуй друзьям в соцсетях.

Решил составив программу на паскале:
var
k,j,i:integer;
a:real;
begin
k:=0;
for i:=1 to 161 do
begin
a:=0;
for j:=1 to i do a:=a+sin(i);
if a<0 then inc(k);
end;
writeln(k);
end.

Ответ: 80
29.09.15
ответ эксперта
Renat  Yahin
Рейтинг: 20
0 отзывов
0% положительных
1 ответов клиентам
0 лучших
от 0 до 0 руб.
стоимость консультации
30 минут
консультация длится
1 год 2 месяца на сайте
Заходил 8 месяцев назад