ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ!!! ДАЮ 23 БАЛЛА!!! ______________________________________ Дано вещественное число A и целое число N. Используя один цикл, найти сумму чисел 1+A+2A+3A.... N*A. (использовать можно любой цикл)
ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ!!! ДАЮ 23 БАЛЛА!!!
______________________________________
Дано вещественное число A и целое число N. Используя один цикл, найти сумму чисел 1+A+2A+3A.... N*A. (использовать можно любой цикл)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы