Произвести сложение чисел в формате с плавающей запятой 0,011*2^3 + 0.1*2^6
Я УЖЕ НЕ ПОНИМАЮ КАК ЭТО ДЕЛАТЬ
ЗАРАНЕЕ ОГРОМНОЕ

Если ограничиваться только целочисленным числом суток, будет всегда получаться полные часы, а минуты и секунды будут нулевыми. // pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin   var d: =readreal('количество суток')*24;   var h: =trunc(d);   d: =frac(d)*60;   var m: =trunc(d);   d: =frac(d)*60;   var s: =round(d);   // преодоление ошибок неточного представления чисел в эвм   if s=60 then begin inc(m); s: =0 end;   if m=60 then begin inc(h); m: =0 end;   writelnformat('{0}ч {1}м {2}с ',h,m,s) end. тестовые решения: количество суток 0.35 8ч 24м 0с количество суток 4 96ч 0м 0с количество суток 2.532 60ч 46м 5с

1) var  i, d, c: integer; begin c: =0; readln(d); for i: =1 to d do if (i mod 3 = 0) and (i mod 2< > 0) and (d mod i = 0) then  c: =c+i; writeln(c); end. 2) var  i, d, c: integer; begin i: =0; c: =0; readln(d); while i< =d do if (i mod 3 = 0) and (i mod 2< > 0) and (d mod i = 0) then begin c: =c+i; i: =i+1; end; writeln(c); end. 3) var  i, d, c: integer; begin i: =0; c: =0; readln(d); repeat if (i mod 3 = 0) and (i mod 2< > 0) and (d mod i = 0) then begin c: =c+i; i: =i+1; end; until i< d; writeln(c); end.