@Mag1str

Перевод кода из Pascal в C++?

Сам не знаю Паскаль, а вот есть такой код. Помогите перевести в С++
var i,j:Integer;
begin
i:=1;
while i<1000 do begin
j:=i;
while j>0 do begin
if (j mod 10=0) then j:=-1 else if (i mod (j mod 10)>0) then j:=-1;
if j>0 then j:=j div 10;
end;
if j=0 then write(i,' ');
inc(i);
end;
end.
  • Вопрос задан
  • 240 просмотров
Решения вопроса 1
15432
@15432
Системный программист ^_^
Извиняюсь за некоторые оптимизации :)
int i, j;
for (i = 1; i < 1000; i += 1)
{
    for (j = i; j > 0; j /= 10)
    {
        if ( j % 10 == 0 || i % (j % 10) > 0 )
            break;
    }
    if (j == 0)
        cout << i << ' ';
}
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы