Var
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 <> 0) and (i mod 3 = 0) then
begin
write(i);
write(' ');
end;
end;
end.
Var d,k,r: integer;
begin
writeln('Введите цену за 100г: ');
readln (k);
for d:=1 to 10 do
begin
r:=d*k;
writeln(d*100, 'г=', r, 'руб');
end;
<span>end.</span>
200 = 11001000
543 = 1000011111
950 = 1110110110
1025 = 10000000001
Просто введи код в язык программирования Poscal - тебе и выдаст ответ.
Ну в данном случае S=31.