Program P1;
uses
Graph,Crt;
var
d,m,i,k : integer;
x,y,x0,y0,r : integer;
a,b : real;
begin
Как я думаю задача решается так: 30×70=2100,2100×5=10500
Ответ: 10500 символов содержит текст.
Ответ: 21211
1) 2*3=6
2) 6-1=5
3) 5*3=15
4) 15-1=14
5)14-1=13
var
x, a, k, t, i, d: integer;
begin
readln(x);
a := x; k := 0;
while a > 0 do
begin
k += 1;
a := a div 10;
end;
if k mod 2 = 0 then
write('В числе четное количество цифр')
else
begin
t := 1;
for i:=1 to k div 2 do
t *= 10;
d := x div t mod 10;
write(d);
end
end.
64000 бит/с = 8000 байт/с<em>( в </em><em>1</em><em> байте </em><em>8</em><em> бит)</em>
500 Кбайт = 512000 байт<em>( В </em><em>1</em><em> килобайте </em><em>1024</em><em> байт)</em>
512000 / 8000 = <u>64 </u><u>сек</u>