Регистрация
TinoShtrydenberg
18.08.2022 02:10
Информатика
Есть ответ 👍

Решить cif 18 на языке паскаль (pascalabc.net),

283
475
Посмотреть ответы 1

Ответы на вопрос:

ЮлияБогинская
ЮлияБогинская
4,5(84 оценок)
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.

Популярно: Информатика