Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
Что вообще такое мбит. Это тоже самое сто и
мбайта. Считаем скорость в байтах. 64мбит/c *
= 8мбайт/c.
1 гб = 1024мбайта.
1024 / 8 = 128 (секунд).
128 секунд = 2 минуты и 8 секунд
подергай синий колпачок либо сними и обратно вставь
я так всегда делаю
1) Основание 10(так как есть 9)
2) Основание 5(так как есть 4)
3) Основание 8(так как есть 7)
Var
res,mas:array[1..100] of real;
k,i:integer;
begin
k:=0;
for i:=1 to 15 do
read(mas[i]);
for i:=1 to 15 do
begin
if mas[i]<0 then
write(mas[i],' ')
else
begin
k:=k+1;
res[k]:=mas[i];
end;
end;
for i:=1 to k do
write(res[i],' ');
<span>end.</span>