Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
8775 дано в байтах, в битах будет 70200
строк 30 страниц 6
30*6=180 всего строк.
I=K*i
70200:6=11700 (т.к. N=2i, N=64, i=6)
11700 - кол-во символов всего
11700:180=65 - а это кол-во символов в одной строке
Всё.
Есть 1 программа бесплатная виндовская "Киностудия Windows live" , там можно крутить на 90 градусов, хоть в право хоть влево
var a:array [1..100] of integer;
i,n:integer;
s:string;
Begin
randomize;
for i :=1 to 100 do
begin
a[i]:= random(1000)+1000;
a[i]:=a[i] mod 100;
a[i]:=a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
End.
Поставить на пк пароль, ахах