Блок-схема - в прилагаемом файле.
14 часов. +- 1 или 2 часа, чтоб заснуть. 12 часов точно будет спать.
Program z1;
var i:integer;
begin
for i:=99999 downto 723 do
if i mod 723=0 then
write (i,' ');
end.
В вычислительной технике используются позиционные системы счисления, поскольку это связано с электронными схемами которые могу показывать всего 2 состояния 1 и 0. По этому для простоты кодировки и декодирования используют в основном двоичную систему счисления для передачи информации процессору и обратно.
Если я правильно понял задание, то вот:
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.