Question

Найдите сумму чисел от 1 до 100. в описании переменных используйте такие переменные, как N, i, p

 

 

НАПИШИТЕ В ФОРМЕ ПРОГРАММЫ ДЛЯ ПАСКАЛЯ!

Answer 1

Program Program1;
Var
n,i,p:integer;
begin
n:=100;
p:=0;
for i:=1 to n do
p:=p+i;
writeln('Сумма чисел=',p);
end.