Ответы на вопрос:
var
i,n: byte;
s: integer;
begin
write('сколько слоев в пирамиде? ');
readln(n);
for i: =1 to n do
begin
s: =s+i*i;
writeln('в ',i,'-м слое ',i*i,' шаров');
end;
writeln('в пирамиде из ',n,' слоев ',s,' шаров');
readln;
end
как то так))
Популярно: Информатика
-
evegn133111.01.2020 00:44
-
dinara95121103.09.2020 18:24
-
IlachinaViktori09.05.2022 11:17
-
olesyapetrova816.09.2021 17:41
-
Чикчирик1224.03.2020 13:29
-
Kalimovnadir20.12.2020 08:27
-
дианакис05070623.09.2022 21:23
-
veronika1357114.07.2021 17:24
-
АНДрЕЙ1227777712.10.2020 18:56
-
lera106004.11.2020 22:27