Дано вещественное число a и целое число n ( 0). - вопрос №01231464811 от SANNIKOVDIMA 20.10.2021 10:59

Question

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

SANNIKOVDIMA · 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.