PascalABC.NET
Программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.
var
t : text;
a,k,i : integer;
begin
assign (t,'File.txt');
reset (t);
i := 0; k := 0;
While not Eof (t) do
begin
i := 0;
While not Eoln (t) do
begin
read (t,a);
if (a = 0) and (i = 1) then
k := k +1;
if i = 0 then
i := 1
else
i := 0;
end;
readln (t);
end;
close (t);
writeln (k);<span>
end.</span>
Ошибка <span>Меркурий</span> т.к все слова на английском ,а это на русском
Var s:int64;
a,b,i:longint;
beginassign(input,'d.in');
reset(input);
assign(output,'d.out');
rewrite(output);
s:=0;
read(a,b);
if odd(a) then i:=a else i:=a+1;
while i<=b dobegins:=s+i;
inc(i,2);
end;
writeln(s);
<span>end.</span>
Данные записанные в одну строку таблицы это - основы.
25 байт = 25*8=200 бит
30 кб = 30* 1024 = 30720 байт
9 мб = 9*1024*1024=9437184 байт
6 кб = 6*1024*8=49152 бит
288 бит = 288/8=36 байт
5242880 тб = 5242880 *1024*1024*1024=5242880*2^30 кб