//Pascal ABC.NET 3.1 сборка 1256
Var
x,s,i:integer;
begin
randomize;
s:=0;
i:=0;
while s<1700000 do
begin
inc(i);
x:=random(150001);
s:=s+x;
writeln('Месяц:',i,', своровал:',x,', сумма на текущий момент:',s);
end;
writeln('Res=',i);
end.
0.5*1024=512 байт
512*8=4096 бит
4096/128=32
в 32 раза больше
Открыть один текстовый файл, нажать на клавиатуре CTRL+A (Правка - Выделить всё), потом нажать CTRL+C (Правка - Копировать). Открыть второй текстовый файл, нажать CRTL+V (Правка - Вставить) и сохранить полученный файл.
Чтобы перейти из десятичной системы счисления в двоичную, нужно выполнить деление столбиком на 2, а остатки, начиная с последнего, и будут являтся ответом:
FOR i = 2 TO 20
PRINT SIN(i)
NEXT i