Паскаль, последняя помощь

[Lamik]

Паскаль, последняя помощь

Вновь требуется помощь, надеюсь последняя

Вычислить сумму значений y<0,2, если y=cosx, x=0, 1, ... 5, а также их количество.

Спасибо.

 

[Николай_С]

А почему последняя?
Замуж выходите, или обучение заканчиваете?
Владимир Игоревичь скучать без Вас будет... :'(

 

[Vladimir_S]

Владимир Игоревичь скучать без Вас будет... :'(

Уже рыдает.

Вычислить сумму значений y<0,2, если y=cosx, x=0, 1, ... 5, а также их количество.

Это безумно трудно, почти невозможно. Но я справился:

Var
 i,n:Byte;
 y,Sum:Real;
Begin
 Sum:=0;
 n:=0;
 for i:=0 to 5 do
  begin
   y:=Cos(i);
   if y<0.2 then
    begin
     Inc(n);
     Sum:=Sum+y;
    end;
   end;
 Writeln('Sum= ',Sum:0:5);
 Writeln('n= ',n);
 Readln
End.