Program znanija;
var count, key, pass:integer;
begin
pass:=1234;
while count <= 3 do begin
Inc(count);
readln(key);
if key = pass then
count:=5
else
writeln('Попробуйте снова');
end;
end.
Корпус,процессор,материнская плата,к<span>улер для процессора ,в</span>идео карта,оперативная память,жесткий диск,б<span>лок питания.</span>
Uses crt;
var i,a,b,c:integer;
begin
for i:=1 to 20 do
begin
if i<=7 then
begin
a:=a+i;
b:=b+sqr(i);
end;
if (i mod 2) = 0 then
c:=c+i;
end;
writeln('Сумма первых семи натуральных чисел: ',a);
writeln('Сумма первых семи натуральных чисел возведенных в квадрат: ',b);
writeln('Сумма четных чисел от 1 до 20: ',c);
<span>end.</span>
N=int(input())
h=n//3600 #кол-во часов
n=n%3600 #остаток после вычета часов
m=n//60 #кол-во минут
s=n%60 #остаток после вычета минут - секунды
h=str(h)
m=str(m)
if len(m)==1:
m='0'+m #отступ 4 пробела от начала строки
s=str(s)
if len(s)==1:
s='0'+s #отступ 4 пробела от начала строки
print(h+':'+m+':'+s)