Решите задачу по информатике на Pascal! Даю 50 баллов.
Нужно полное и понятное решение.
Приложения:

Ответы на вопрос
Ответил alimuhammad61734
0
Ответ:
//Введите натуральное число
readln(N);
//Создаем цикл для проверки каждого числа
for I := 1 to N do
begin
//Создаем флаг, указывающий, является ли число делимым
isDivisible := true;
//Перебираем каждую цифру числа
for J := 1 to Length(I) do
begin
//Если число не является делимым, установите флаг в false
if (I mod StrToInt(I[J])) <> 0 then
isDivisible := false;
end;
//Если число делимое, выведите его на экран
if isDivisible then
writeln(I);
end;
Новые вопросы
Физика,
1 год назад
Литература,
1 год назад
Физика,
1 год назад
Английский язык,
7 лет назад
Математика,
7 лет назад