1)1100
2)11001
3)100000
4)110000
5)1100000
6)10011101
7)100000000
8)111111111
Вторая строка это пароль от сервера интернета. Введи нужный по роль что бы подключится
Var a, b, c, d, i : integer;
Begin
read(a);
read(b);
read(c);
read(d);
for i := a to b do
if (i mod c = d) then
writeln(i);
writeln();
for i := a to b do
if frac(sqrt(i)) = 0 then
writeln(i);
writeln();
for i := 2 to a-1 do
if a mod i = 0 then begin
writeln(i);
exit;
end;
End.
Var q: integer;
<span> s: real;
</span><span>begin
</span><span> q:=0;
</span><span> repeat
</span><span> inc(q);
</span><span> s:=sqr(q)*q/125 - sqr(q) -90*q + 10000;
</span><span> until s<0;
</span><span> writeln('объем выпуска: ',q);
</span><span> s:=(sqr(q)*q/125-sqr(q)+180*q+10000)/q;
</span><span> writeln('затраты на единицу: ',s:5:2);
</span><span>end.
</span>объем выпуска: 86
<span>затраты на единицу: 269.45
</span>