Паскаль. Найти все натуральные числа, не превосходящие заданного n и делящиеся на каждую из своих цифр.
Попробовал сам написать, но ошибся.
var n, i, p, t:integer;
Begin
write('Введите число n=');
readln(n);
for i:=1 to n do
begin
t:=i;
p:=t mod 10;
t:=t div 10;
if (p<>0)and(i mod p=0) then write(i, ' ');
end;
End.
Нет комментариев
Ответы
Гость Var s: string;
i,n,k,m: integer;
begin
write('n = '); readln(n);
for i:=1 to n do
begin
s:=IntToStr(i);
m:=0;
for k:=1 to length(s) do
if (ord(s[k])-48=0) or (i mod (ord(s[k])-48)<>0) then
begin
m:=1;
break;
end;
if m=0 then write(i,' ');
end;
end.
Нет комментариев
Похожие вопросы
Информатика
Напишите пожалуйсто программу ....
Информатика
Помогите пожалуйста , срочно надо...
Информатика
Слово нссрхплсгхса получено с помощью шифра виженера ключевое слово ваза. Восстановите исходное слово...
Информатика
В чём преимущество исползовинии ярлыков?...
Информатика
Составьте цикл по сказке цветик - семицветик...
Список предметов
