ИНФОРМАТИКА, 9 класс. Помогите пожалуйста! Решите задачу. Кто хорошо разбирается, можете объяснить как решать подобные задачи. На языке Паскаль.
Текстовый файл с решением задачи, выводящей сумму Р чисел, вводимых с клавиатуры, 1<=P<=100
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
