Дано вещественное число a и целое число n ( 0). - вопрос №011465154 от maksimmaksegoroysa5l 12.02.2023 21:24

Question

Информатика: Дано вещественное число a и целое число n ( 0). вывести 1 + a + a2 + a3 + + an.

maksimmaksegoroysa5l · Answer

var   A, Summ:real;   N, i:integer; begin   Summ := 1;   write( a = ); readln(a);   write( n = ); readln(n);   for i := 1 to n do     Summ := Summ + A * i;   writeln( Summ = , Summ); end....

Дано вещественное число a и целое число n (> 0). вывести 1 + a + a2 + a3 + + an.