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