Сотавьте программу вычисления суммы натуральных чисел от 20 до 99 с использованием оператора repeat.

234

428

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

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

Rika2468

Информатика

4,7(60 оценок)

Var a,b: integer; begina: =20; b: =21; repeata: =a+b; b: =b+1; until (b> 99); writeln(a); end.

katirina19

Информатика

4,7(64 оценок)

1) в цикле по значениям переменой i от i=1 до i=19 выполнять сложение вида: s=s+i/(i+1) на паскале это выглядит так: var s: real; begin for var i: =1 to 19 do s: =s+i/(i+1); writeln('ответ: ',s); end. 2) сложная прогрессия какая- могу предположить, что вида: 1+2*(i-1)+s_i-1 т.е. 1) 1+2*(1-1)+0=1 2) 1+2*(2-1)+1=4 3) 1+2*(3-1)+4= тогда на паскале алгоритм: var s,si: real; begin for var i: =1 to 10 do begin si: =1+2*(i-1)+si; s: =s+si; end; writeln('ответ: ',s); end.