1) 64 ⇒ 01000000
2) 58 ⇒ 00111010
3) 72 ⇒ 01001000
4) 96 ⇒ 01100000
135 137 175 173 157 153 315 317 375 357 351 371 571 537 517 573 513 531 753 751 735 731 715 713
и так таких чисел 24!
1024000 бит сек * 5 сек = 5120000 бит вес файла (инф. объём).
var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.
Var
x, y : real;
begin
read (x, y);
if sqr (x) + sqr (y) <= 4 then write ('YES') else write ('NO');
end.