var i: integer;
begin
for i:=100 to 200 do
if i mod 3 = 0 then writeln(i);
end.
Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
<span>end.</span>
1. 1 2 3 4
(WiFi как радиоволна, плюс dialup)
2. 2 3 4 5
3. 1 4 5
4. 1 3
6. 1 2 3 5
(Сис админ не обязан разрабатывать ПО)
<span>Винни-Пух любит мед как никто другой
</span><span>Винни-Пух любит мед как я люблю плакать
</span><span>дверь в дом открыта но Вини не идет кушать мед</span>
Когда к документу прилогается музыка или звук