tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Число цукамерна - натуральное
Число цукамерна - натуральное число, которое делится на произведение своих цифр, например 175 делится на 1*7*5=35. составить программу, которая выводит на экран все трёхзначные числа цукамерна. !
seadetibrahim
1 07.09.2019 09:00
1
Ответы
svinka03
06.10.2020 22:46
Var k,a,b,c,l:integer;
begin
readln(k);
a:=k div 100;
b:=k div 10 mod 10;
c:=c mod 10;
l:=a*b*c;
if (k mod l=0) then writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Лизунчик1211
20.04.2019 23:06
Напишите программу( c++) для вычисления значения выражения ((sinx+cosx)/(cosx-sinx))*tgxy надо!...
Eclipse2345
12.08.2019 20:30
Носитель информации новое словосочетание и объяснение...
Katia53535
17.03.2021 07:32
. Найди математическое выражение, записи выражения на языке Python. 1) (p+k*4)/(4*t)-4*p*k/(3-2*b) 5) ( x1**3-y1**3)-(x**3 2) abs(4*x)+(3-3x)/5*y 6)abs(3-x)+x**3/y**2 3) 3*x*(x**3-47+2*y)/abs(x-4)...
Danya0011
26.06.2019 12:20
Решить на дан массив x(t). вычислить сумму положительных элементов массива с номерами меньшими 7, значение которых больших 15 (t³7) ....
Вовчики
26.06.2019 12:20
Это универсальный формат, позволяющий открывать и редактировать векторные файлы в других windows-приложениях 1) png 2) svg 3) bmp 4) emf...
ввіна
26.06.2019 12:20
Составить алгоритм решения : расположить три числа 32,17,24 в порядке возрастания:...
мадя21
30.09.2019 15:30
Вася вводит число,нажимая клавиши 3 , 2 и 1 .какие операции должен выполнить компьютер,чтобы соответствующее число было записано в память?...
Kojjd
30.09.2019 15:30
Одно слово содержит 2.5 байт информации, а другое 25 бит. на сколько букв одно слово длиннее другого?...
MadMax22277
30.09.2019 15:30
Определите объём 16-цветного рисунка, с размерами 128х200....
aevseeva03
18.01.2021 13:53
коме керек катты отинемин ...
Популярные вопросы
На прямой взяты 14 точек, а на параллельной ей прямой взяты 4 точ(-ки, -ек)....
2
Знайдіть речення з прикладкою, що береться в лапки (лапки опущено). А На подвір’ї...
1
Написати твір 6-7речень«Чому Том зберіг усмішку Джоконди?».За твором «Усмішка...
2
У якому випадку для розрахунку кількості теплоти не слід користуватися формулами...
2
Здравствуйте, заранее благодарен за ответ. Определите ряд веществ, в котором...
3
У реченні мама налила в глечик сік із ЯбЛУК виділене слово є: означенням,обставиною,...
3
Прочитайте отрывок из дневника А.К.Толстого, озаглавьте текст, указав в названии...
3
Довжина кола = 40П см. Визначте довжини дуг на які поділена коло, Якщо відповідні...
3
Задача Д был осуждён 20 января 2012 года за кражу к 3 годам лишения свободы...
1
^1. Пунктуационная ошибка допущена в предложении1.Старый мост и дорога, и плотина...
1
begin
readln(k);
a:=k div 100;
b:=k div 10 mod 10;
c:=c mod 10;
l:=a*b*c;
if (k mod l=0) then writeln(k);
end.