Напишите программу, которая вводит натуральные - вопрос №16141398 от Шокер12 08.07.2022 11:27

Question

Информатика: Напишите программу, которая вводит натуральные числа а и b и выводит на экран все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Входные данные Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b . Выходные данные Программа должна вывести в одну строчку все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Числа разделяются пробелами.

Шокер12 · Answer

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.