Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An.
Предмет:
ИнформатикаАвтор:
jaidencervantesvar
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.
Автор:
smallДобавить свой ответ
1) Чем был вызван стрелецкий бунт 1698г ?
2)Соперничество Софьи и Петра 1 - борьба за судьбу России или схватка за власть??
спасайте какую часть суток составляет 5 ч, 29 мин, 41с,2ч8мин16с
какую часть от 2 тонн составляют 7ц, 56кг, 9ц17кг
Предмет:
МатематикаАвтор:
chloeОтветов:
Смотреть
является ли понятия фактический брак, гражданский брак, фиктивный брак синонимами?
Предмет:
ОбществознаниеАвтор:
judahОтветов:
Смотреть
program mar;
uses crt;
var F,k:integer;
S:real;
begin
clrscr;
F:=1;
S:=1;
for k:=1 to 3 do
begin
F:=F*k;
S:=S*(2*F)/(k*k*k*k+k);
writeln('k = ',k );
readkey;
end.
Найдите ошибку, пожалуйста, программа не идет.
Предмет:
ИнформатикаАвтор:
gianterx0Ответов:
Смотреть