Информатика, опубликовано 2018-08-22 23:18:50 by Гость
ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ!!! ДАЮ 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.