ИНФОРМАТИКА, 9 класс. Помогите пожалуйста! Решите задачу. Кто хорошо разбирается, можете объяснить как решать подобные задачи. На языке Паскаль.
Текстовый файл с решением задачи, выводящей сумму Р чисел, вводимых с клавиатуры, 1<=P<=100
Ответы на вопрос
Ответил iowisp3
0
program massiv;
var
a: array [1..100] of integer;
p,n,c: integer;
begin
writeln('Vvedite chislo P');
readln(p);
c:=0;
for n:=1 to p do
begin
a[n]:=n;
c:=c+a[n];
end;
writeln(c);
end.
var
a: array [1..100] of integer;
p,n,c: integer;
begin
writeln('Vvedite chislo P');
readln(p);
c:=0;
for n:=1 to p do
begin
a[n]:=n;
c:=c+a[n];
end;
writeln(c);
end.
Новые вопросы