Напишите программу, которая вводит натуральное число N и выводит на экран все натуральные числа, не превосходящие N и НЕ делящиеся на каждую из своих цифр.
Заранее спасибо)

Программа:Varnumber, i, dv, md : integer;flag : boolean;Beginreadln(number);For i := 1 To number DoBeginflag := true;dv := i;While dv > 0 DoBeginmd := dv Mod 10;dv := dv Div 10;If (md = 0) Or (md = 1) Then Continue;If i Mod md = 0 ThenBeginflag := false;break;EndEnd;If flag Thenwrite(i, );End;End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.