найти все семизначные числа, которые делятся на 15 и записываются только цифрами 0 и 1. Составить программу на паскале

function only01(n: longint): boolean;
begin
if (n mod 10) > 1 then
only01 := false
else if n > 0 then
only01 := only01(n div 10)
else
only01 := true;
end;

var
n: longint;

begin
n := 1000000 div 15 * 15 + ord((1000000 mod 15) <> 0) * 15;
while n < 9999999 do begin
if only01(n) then
writeln(n);
inc(n, 15);
end;
end.

за 100р сделаю

Может еще и денег дать....

Любые целые числа записываются только цифрами 0 и 1. Задача сводится к поиску таких семизначных чисел делящихся на 15 без остатка

for i:=64 to 127 do
if i mod 15 = 0 then
writeln(x);

не грузи

На мыло пиши и подробнее. помогу

за 50 р. на телефон напишу.... если интересует пиши на почту.. . а лучше почитаю учебник право если вот просто по заданию пройтись получится элементарщина наподобии

uses crt;
var
i,v:longint;
s:string;

function IntToStr(I: Longint): String;
{ Convert any integer type to a string }
var
S: string;
begin
Str(I, S);
IntToStr := S;
end;

begin
clrscr;
for i:=1000000 to 9999999 do
begin
s:=IntToStr(i);
if not((pos('2',s)>0)or
(pos('3',s)>0)or
(pos('4',s)>0)or
(pos('5',s)>0)or
(pos('6',s)>0)or
(pos('7',s)>0)or
(pos('8',s)>0)or
(pos('9',s)>0)or
(i mod 15<>0))
then writeln(i);
end;
readln;
end.

антот - !ты ошибаешься.. . с системами исчисления тут никакого изврата нет!! ! нет серьёзно! число 1000125 что дробное??!? или оно не делится на 15 или оно не 7 значное.... откуда вдруг взялось двоичное исчисление?!?!