Регистрация
Kxoma
11.08.2020 04:42
Информатика
Есть ответ 👍

Программаны тестілеу. тест құрылымынын сызбасы

250
410
Посмотреть ответы 2

Ответы на вопрос:

irina956
irina956
4,8(48 оценок)

Чего?

Объяснение:

Anna080811
Anna080811
4,4(58 оценок)
Var     n,b: longint;     k: byte; begin write('n = '); readln(n); for n: = 1 to n do       begin       k: =1;       b: =n;       while b> 0 do             begin             if b mod 10< > 0 then                   begin                   if n mod (b mod 10) < > 0 then k: =0                   end             else k: =0;             b: =b div 10             end;       if k=1 then write(n,' ')       end; end.

Популярно: Информатика