Var h1,m1,s1,h2,m2,s2,t:integer;
begin
write('Start: ');
readln(h1,m1,s1);
write('Finish: ');
readln(h2,m2,s2);
t:=(h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
writeln(t);
end.
Пример:
<span>Start: 11 20 30
Finish: 13 15 40
6910</span>
Var
sum, a,b,c:real;
begin
Readln(a);writeln(a/1000);
read(b);Writeln(b/10000);
end.
1 кбайт=8000 бит, сл. вес сообщения=1928000 бит
1928000\128000=15.0625 сек
Разделение изображения на участки, в пределах которых значения тона либо усредняются, либо представлены одним из значений участка; имеет место при сканировании