Напишите программу, которая вводит натуральные числа а и b и выводит на экран все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр.
Входные данные
Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b .
Выходные данные
Программа должна вывести в одну строчку все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Числа разделяются пробелами.
anyaFamova:
язык угадать самим надо, да?
Ответы
Ответ дал:
0
Ответ:
program z1;
var a,b,i,c,k:integer;
begin
read (a, b);
for i:=a to b do
begin
c:=i;
if c mod 10 = 0 then k:=1 else k:=0;
while (c > 0) and (k = 0) do
begin
if i mod (c mod 10) <> 0 then k:=1;
c:=c div 10;
if (c>0) and (c mod 10 = 0) then k:=1
end;
if k = 0 then write (i,' ')
end
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад