Var
a,b,c,d:integer;
begin
c:=1;
b:=0;
while a<>1 do begin
readln(a);
if a mod 2 <> 0 then begin
b:=b+1;
if b<=10 then c:=c+a;
end;
c:=c*a;
end;
writeln(b,' ',c);
end.
Var
i, n, s, x: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
readln(x);
if (x mod 10 = 8) and (x mod 6 = 0) then
s := s + x;
end;
writeln('S = ', s);
end.
100(5) = 1*5^2 = 25(10)
100(3) = 1*3^2 = 9(10)
Потому что емкость на носителе <span>CD-R очень мала, если на данный носитель записать фильм, то он будет показывать, но в плохом качестве, т. к. произойдет сильное сжатие.</span>