Если 4800 бод это 4800 бит/с, то
4800*20=96000 бит будет передано за 20 с
96000/8=12000 символо нужно передать (т.к. КОИ-8 8-ми битная кодировка)
12000/1500=8 страниц
10*15 переведем в дюймы
1 дюйм = 2,54 см
10 / 2,54 = 3,937 дюймов
15 / 2,54 = 5,9 дюймов
определим объём файла
3,937*600 * 5,9*600 * 3 = 25086564 байт
<span>25086564 байт / 1024 = 24498,59 Кбайт / 1024 = 23,92 Мбайт</span>
Var
x,k:integer;
a:array[1..100] of integer;
begin
k := 0;
read(x);
while x <> 0 do
begin
k := k + 1;
a[k] := x;
read(x)
end;
writeln(k);
for x := 1 to k do
write(a[x],' ')
<span>end.</span>
В строке
<span>for i in range(10000,99999):
нужно вместо "i" написать "a"
</span><span>for a in range(10000,99999):
На паскале:
var a:longint;
begin
for a:=10000 to 99999 do
if (a mod 133=125) and (a mod 134=111)
then writeln(a);
end.
Результат:
<span>19809
37631
55453
73275
91097</span></span>