Напишите мне данное от program до end. (тема "циклы"- pascal abc) написать программу, которая вычисляет сумму первых в членов ряда: 1,3,5, количество суммированных членов ряда задаётся во время работы программы. ниже примерно рекомендуемый вид экрана во время работы программы. вычисление частичной суммы ряда: 1,3,5, введите количество суммированных членов ряда -> 1-5 сумма первых 15 членов ряда равна 330.

180

389

Посмотреть ответы 2

Ответы на вопрос:

ева518

Информатика

4,8(28 оценок)

Program zhn; var i,n,sum: integer; begin writeln('вчисление суммы членов последовательности: 1,3,5,'); write('введите количество членов для сложения: '); readln(n); for i: =1 to n*2 do begin if i mod 2 < > 0 then sum: =sum+i; //проверяем что бы число было нечетным end; writeln('сумма ',n,' членов прогресии = ',sum); end.