Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
hehsggsvsg
02.08.2020 11:28 •
Информатика
Найти нок('x' и его суммы(x2)) например: 26=x; x2=6+2=8; + найти нок или 129=x; x2=1+2+9=12; + найти нок но только ввиде !
Показать ответ
Ответ:
nastia6982
03.10.2020 07:02
{ Паскаль }
Function NOD(a,b : Longint) : Longint;
Begin
If (a mod b)=0 then NOD:=b else Nod:=NOD(b,a mod b);
end;
Function NOK(a,b : Longint) : Longint;
Begin
NOK:=abs(a*b) div NOD(a,b);
End;
Function SumCifr(A : Longint) : Integer;
Begin
If A>0 then SumCifr:=(A mod 10) +SumCifr(A div 10) else SumCifr:=0;
End;
Var x : Integer;
Begin
Readln(x);
Writeln(NOK(x,SumCifr(x)));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
FunLayn1
26.02.2022 05:00
Определите объем моноаудиофайла длительностью звучания 10 сек. при частоте дискретизации 8000 гц и глубине звука – 24 бит....
am5673
17.12.2021 00:35
1. Какие вы знаете поисковые системы? Назовите их адреса. 2. Сколько существует сохранения веб-страницы? 3. Как загрузить текст веб-страницы в текстовый документ? 4. Как...
DaryaAminina
27.06.2022 02:13
Создать функцию, принимающую список целых чисел и возвращающую, сумму всех элементов, сумму всех четных элементов, а также разность между самым большим и самым маленьким...
goodsmalgirl
03.04.2020 14:06
Выделите победителя игры(того кто первый наберёт ) Потом спросите хочет ли игрок начать игру заново. Если ответ будет да начните заново(❗python❗)...
Vane12
26.05.2022 10:01
Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. на python...
Pinkaktus
21.08.2022 16:12
Яких значень набудуть змінні j та i після обчислення для int j, i = 2 a) j = i++ + ++ib) j = ++i + ++ic) j = i++ + ++id) j = ++i + i--...
nnnnn777
27.12.2021 21:39
С#. Дан двумерный массив. Определить: - количество ненулевых элементов второго столбца массива, больших 15; - среднее арифметическое нечетных элементов пятой строки; -...
Крахмал16
11.10.2020 02:12
1)известны данные о мощности двигателей 20 моделей легковых автомобилей выясните есть ли среди них модель мощность двигателя который превышает 200 л.с. 2)напечатайте минимальное...
Belay28
21.01.2023 05:29
кто 1.Дан фрагмент алгоритма a:= x mod 10; b := x div 100; s := 0; p := 1; if (a mod 2 = 0) then s := s + a else p := p * a; if (b mod 2 = 0) then s := s + b else p :=...
elnur22
28.04.2020 12:09
Информатика легко но )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Function NOD(a,b : Longint) : Longint;
Begin
If (a mod b)=0 then NOD:=b else Nod:=NOD(b,a mod b);
end;
Function NOK(a,b : Longint) : Longint;
Begin
NOK:=abs(a*b) div NOD(a,b);
End;
Function SumCifr(A : Longint) : Integer;
Begin
If A>0 then SumCifr:=(A mod 10) +SumCifr(A div 10) else SumCifr:=0;
End;
Var x : Integer;
Begin
Readln(x);
Writeln(NOK(x,SumCifr(x)));
end.