Задание:
Сколько понадобится пятерок и четверок, чтобы записать в десятичной системе счисления все натуральные числа от 1 до 555555 включительно?
Решение:
Мне ответили что 716052var x,k,j: longint; s: string; begin k: =0; s: ='; for x: =1 to 555555 do begin str (x,s); for j: =1 to length (s) do if (s[j]='5') or (s[j]='4') then inc (k); s: ='; end; writeln (k); end.
Знаете другой ответ?