Var i,k:integer;
begin;
for i:=1 to 1000 do
k:=k+i;
writeln(k);
end.
1 копейка,2 копейки,4 коп.,8коп,16 коп,32 коп,64 коп,128 коп и остальные деньги в девятый кошелёк
Число заносите в ячейку А1 в ячейку В1 пишете формулу =A1*((A1>=850)*0,10+(A1>=6000)*0,05)
во вложении экселевский файлик с решением
Это самая крупная библиотека , существовавшая в 3-4 веках н.э. Во времена Юлия Цезаря, случился пожар, и большая часть библиотеки была уничтожена. Ходили слухи, что все таки она сохранилась. Но результатов никаких нет и поныне. Сейчас на ее месте находится новая библиотека "Библиотека Александрина".
Это как то в кратце.