Var m, n, c, p, q, r: integer;
begin
read(m); write(':'); read(n); write(':'); read(c);
write(' + ');
read(p); write(':'); read(q); write(':'); read(r);
write(' = ');
c := c + n * 60 + m * 60 * 60;
r := r + q * 60 + p * 60 * 60;
r := c + r;
writeln(r div 3600 mod 24:2, ':', r mod 3600 div 60:2, ':', r mod 60:2);
<span>end.</span>
var a:integer;
begin
for a:=1 to 10000 do
begin
if (a mod 10 =8)and(a mod 3 =0) then writeln(a);
end;
end.
П
ы с
л о
е к б
с е а
о к к
с о с т а в
с у о
и ч л
н а к
а
1)машина собирающая грязь
2)подруга ёлки
3)синоним слова "маффин"(булочка)
4)хмурое облако
5)друг человека
6)дикая собака
<em />
1) 473, 2) 71,3125 3) 40420
2. в 2: 111001101011
в 8: 7153
в 16: e6b
1.9*1024*1024*8=15938355.2 бит