Var
n, i, a, s: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if a mod 6 = 0 then
s := s + a;
end;
writeln(s);
end.
Var c,i:integer;
function sov(k:integer):boolean;
var j,s:integer;
begin
result:=false;
s:=0;
for j:=1 to k div 2 do if k mod j=0 then s:=s+j;
if s=k then result:=true;
end;
begin
read(c);
i:=1;
while (sov(c+i)=false) and (sov (c-i)=false) do i:=i+1;
if sov(c+i)=true then writeln(c+i) else writeln(c-i)
<span>end.</span>
Первая буква 20, т.к. с 0 начинаться не может.
Тогда начинается бувы "Т"
Тогда
Ответ: Г, т.к. Тамара- единственное имя, которое начинается на "Т"
1 килобайт=1000 байт
Значит 10 килобайт=10000 байт
Имя рост цвет глаз возвраст вес курс
марат 1,7м зеленый 18 65 1
марал 1,55м карий 21 56 3