Var A,S:longint;
Begin
Write('Введите шестизначное число: ');ReadLn(A);
S:=A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
A:=(A div 100)+(A div 10) mod 10 + (A mod 10);
if A<>S then Write('Билет не является счастливым')
else WriteLn('Счастливый билет!!!')
End.
Решение:
1) 1 килобит = 125 байт,
320*125=40000
2) 13 677 934/40000 = 341,94835 = 342 сек
Ответ: 342 секунды; 5 минут 42 секунды.
Var
n, sum: integer;
begin
read(n);
while n > 0 do
begin
if n mod 10 < 7 then
sum := sum + n mod 10;
n := n div 10
end;
writeln(sum);
end.