program Tim;
var a, b, c, i: integer;
begin
write('Введите количество натуральных чисел ');
readln(a);
for i:=1 to a do begin
readln(c);
b+=c
end;
write(' : ',b)
end.
информатику посчитайте пж
1.Речення, яке містить твердженн
Складіть блок-схему фрагмента ал
if a<5:b=a+1else:if a<10:b
Список: процессор, сканер, диспл
Написать программу в PASCAL (жел