Ответы на вопрос:
Program n_1; var i,n: byte; mass: array[1..100] of integer; summ: integer; beginwrite('введите длину массива: '); readln(n); mass[1]: =2; for i: =2 to n do//beginmass[i]: =mass[i-1]+5; //writeln(mass[i]); //end; summ: =mass[1]; for i: =2 to 15 dosumm: =abs(summ+mass[i]); writeln('сумма последовательности чисел равна: ',summ); end. убери комментарии,чтобы показать всю последовательность.
300*300*32 бит = 300*300*32/8 байт = 360000 байт = 360000/1024 кбайт ≈ 352 кбайт
Популярно: Информатика
-
Тася22107.01.2022 04:57
-
Lizzka130123.02.2021 13:39
-
юлиядзудзе09.11.2022 16:56
-
dasew124.06.2021 21:47
-
Kreizanova15.10.2020 00:34
-
жанар4213.09.2021 18:40
-
anna5453p08o2205.02.2023 03:49
-
nastya29120406101213.04.2023 08:49
-
makeewaalexandra02.12.2021 19:41
-
МарысяДэн08.10.2021 05:12