P.S программа написана для Pascal.
program summa;
var
a, b, s : integer;
begin
writeln('Введите число a=');
read(a);
writeln('Введите число b=');
read(b);
s:=0;
for a:=a to b do
if a mod 3=0 then
s:=s+a;
writeln('Сумма: ',s);
end.
<h3>var a:array [1..100001] of longint;
</h3><h3>r,k:real;
</h3><h3>s:longint;
</h3><h3>begin
</h3><h3> t:=1;k:=0;
</h3><h3> while t<>0 do
</h3><h3> begin
</h3><h3> read(t);
</h3><h3> inc(k);
</h3><h3> a[k]:=t;
</h3><h3> s:=s+t;
</h3><h3> end;
</h3><h3> r:=s/k;
</h3><h3> if a[k+1 div 2]>r then writeln('Yes') else writeln('No');
</h3><h3>end.
</h3><h3 />
import time
def func_time(s):
return time.strftime('%H:%M:%S', time.gmtime(s))
print(func_time(210))