Беспроводные сети. Урок 1. Повторение Исключи устройство, которое не поддерживает беспроводную сеть.
139
283
Ответы на вопрос:
var
n, i, aon_i, k: integer;
f: boolean;
function AmountOfNumbers(n: integer): integer;
var
s: integer;
begin
s := 0;
while n > 0 do
begin
s := s + n mod 10;
n := n div 10;
end;
AmountOfNumbers := s;
end;
begin
readln(n);
for i := 0 to n do
begin
f := true;
aon_i := AmountOfNumbers(i);
for k := 2 to 9 do
f := f and (aon_i = AmountOfNumbers(k * i));
if f then writeln(i);
end;
end.
Объяснение:
Популярно: Информатика
-
Элечка555601.07.2022 19:11
-
Соня13513511.11.2020 13:30
-
dinka4113.01.2021 15:01
-
Mv085626.02.2021 15:58
-
Машуничка1211.10.2022 22:17
-
kirillmich1618.05.2020 20:17
-
Знания06129.12.2022 15:45
-
СуПерБро12310.12.2020 16:26
-
dgostishev31.01.2021 09:38
-
dover223.06.2022 09:39