Если видите, что какой-то человек ответи, зайдите всё равно, т.к. у нас есть дурачки, которые так неправельные ответы отправляют и так получают балы. будем называть их Дебилы. Во с информатикой. Чучуть недопираю.
Составить и решить задачу с использованием условного оператора.
sa:real;
begin
writeln('vvedite perviy element arefmeticescoy progressii=');
readln (a1);
writeln('skoliko cisel');
readln(n);
writeln('raznosti arefmeticescoy progressii=');
readln(d);
writeln ( 'summa arefmeticescoy progressii=');
sa:=((2*a1+(n-1)*d)/2)*n;
write(sa);
readln;
end.
var i,j,q,n:integer;
z,b,b1,sg:real;
begin
write('vvedite perviy element geometricescoy progressii');
read(b1);
writeln('q=');
readln(q);
writeln('n=');
readln(n);
for i:= 1 to n do
begin
z:=i;
b:= b1 *Power(q,z-1);
sg:= sg + b;
end;
writeln('summa geometricescoy progressii=',sg);
readln;
end.