var
i:integer;
s,m:string;
begin
<em>readln(s);
</em>
for i:=1 to Length(s) do
if s[i] in ['0'..'9'] then m:=m+s[i];
<em>write(m);</em>
<span>end.</span>
V= 36864 бит/с
1стр.= 2304 сим.* 8 бит= 18432 бит
4 стр. = 18432 бит.* 4 = 73728 бит = S
t= ?
t = S/V
t = 73728 бит / 36864 бит/с = 2
ответ: 2
Не понял, зачем тебе переменная m? Вот программа
program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
Net(networks) -для сетевых структур. com(commercial) -для комерческих организаций. pro(professionals) -для специолистов определённых професий. org(organizations) -некомерческие организации. edu- высшее учебные заведения признаваемые в качестве таковых Департаментом образования США
Блок-схема - в прилагаемом файле.