Вычислить сумму, используя циклы WHILE и REPEAT - Pascal ABC

Формулировка задачи:

Помогите, плз, фото прикрепил WHILE и REPEAT

Код к задаче: «Вычислить сумму, используя циклы WHILE и REPEAT - Pascal ABC»

textual
var n,i:integer;
    sm,zn:real;
begin
write('n=');
readln(n);
sm:=0;
zn:=0;
for i:=1 to n do
 begin
  zn:=zn+sin(i);
  sm:=sm+cos(i)/zn;
 end;
write('summa=',sm:0:3);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 4.400 из 5


СДЕЛАЙТЕ РЕПОСТ