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

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


textual

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

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.

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

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



Похожие ответы
  1. Вычислить сумму ряда

  1. Ввести трехзначное число .Вычислить корень квадратный второй цифры

  1. Помогите решить, пожалуйста Вычислить y=tg(x+2)+ctg^2x(ctg(x+1)-tgx), при х=30 градусов, оформив в виде функций вычисление тангенса и котангенса.

  1. Нужно написать программу, в которой пользователь вводит альфа(alpha), а программа бы считывала z1=cos в квадрате от разности ((3/8)*pi-(alpha/4))-cos в квадрате от суммы ((11/8)*pi+(alpha/4)) z2=(корень из 2-х/2)*sin от дроби (alpha/2)

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Треугольник задан координатами своих вершин. Вычислить длины сторон треугольника. Для нахождения длин сторон треугольника воспользуемся формулой нахождения расстояния между двумя данными точками s = ((x2 - x1)^2+(y2-y1)^2)^(1/2), где (x1,y1) и (x2, y2) - это координаты начала и конца отрезка. Пожалуйста помогите решить)

  1. Составить алгоритм и написать решение задачи на Паскале: Вычислить: где х - произвольное число, введенное пользователем с клавиатуры. Помогите пожалуйста! Решение желательно на уровне 10-11 класса.

  1. Вычислить функцию у = 2х^2 - 8Sinх (-2< х >3). Шаг изменения аргумента задавать с клавиатуры. Найти ее минимум и максимум. Вывести в виде таблицы результаты вычислений.