// PascalABC.NET 3.0, сборка 1111
begin
var n:=ReadInteger('Длина последовательности= ');
var a:=ReadArrReal('Вводите члены последовательности'+#13#10,n);
var k:=a.TakeWhile(x->x<>0).Count;
if k=n then Writeln('Ноль в последовательности не найден')
else Writeln('Количество членов, включая первый нулевой: ',k+1)
end.
<u><em>Тестовое решение:</em></u>
Длина последовательности= 10
Вводите члены последовательности
-5.2 7 2.7 -3.18 6.11 0 -1.02 3.14 -3.8 -4
Количество членов, включая первый нулевой: 6
Nxnfjfkfiffjfjfjfjjchcchchchjcjvjcncnxmcmcmmc
<u>Инструкция:</u>
При любом префиксе и слове
байт нужно к предыдущей степени прибавить 10(при условии что префиксы равномерно уменьшаются
Пбайт-Тбайт-Гбайт-Мбайт-Кбайт-байт).
1 байт =
байт
1 Кбайт =
байт
1 Мбайт =
байт
И так далее...
При слове
бит нужно к предыдущей степени
НЕ БИТОВ прибавить 3.
1 байт =
бит
1 Кбайт =
байт =
бит
____________
<u>Решение:</u>
1 байт -
байт
1 Кбайт -
байт -
бит
1 Мбайт -
Кбайт -
байт -
бит
1 Гбайт -
Мбайт -
Кбайт -
байт -
бит
1Тбайт -
Гбайт -
Мбайт -
Кбайт -
байт -
бит
1 Пбайт -
Тбайт -
Гбайт -
Мбайт -
Кбайт -
байт -
бит
Var
amoebas, t: integer;
begin
amoebas := 1;
t := 0;
repeat
t := t + 3;
amoebas := amoebas * 2;
Writeln(amoebas, ' амеб через ', t, ' часа');
until t >= 24;
end.
Не практично и не актуально т.к есть носители информации намного компактнее и долговечнее. например бумага, флешка, диск