ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ!!! ДАЮ 23 БАЛЛА!!! ______________________________________ Дано...

Question

ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ!!! ДАЮ 23 БАЛЛА!!!
______________________________________
Дано вещественное число A и целое число N. Используя один цикл, найти сумму чисел 1+A+2A+3A.... N*A. (использовать можно любой цикл)

Answer 1

Program n1;
var n,i :integer; a,s:real;
begin
s:=0;
writeln('целое число N=?');
read (n);
writeln ('число а?');
read(a);
for i:=1 to n do
s:=s+i*a;
writeln('сумма=',s)
end.

Comments

А почему вы не ввели A?