<span>Вариант 4:по цвету строки с командой</span>
Begin
writeln(350/2/3*60,' секунд');
<span>end.</span>
Var
N,S:integer;
Begin
S:=0;
ReadLn(N);
For N:= 1 to N do
if N mod 5 = 0 then S:=S+N;
WriteLn('S = ',S);
End.
В каждом горизонтальном слое ядра расположены в форме квадрата, в i-м слое i рядов по i ядер - всего .
Первая пирамида: 2 слоя, ядер.
Вторая: добавляется еще 3-й слой, всего ядер.
Третья: ядер.
Четвертая: ядер.
Ответ:
var a:array[1..100] of integer;
i,s,n:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i] mod 6=0) then
s := s + a[i];
writeln(s);
end.