Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Margo231
02.12.2020 07:47 •
Информатика
Найти нок('x' и его суммы(x2)) например: 26=x; x2=6+2=8; + найти нок или 129=x; x2=1+2+9=12; + найти нок но только ввиде !
Показать ответ
Ответ:
denglushakov1
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 оценок)
Популярные вопросы: Информатика
Боженька206
26.05.2022 21:34
Для хранения номера телефоне в базе данных используются тип данных...
diliana200405
02.06.2023 16:49
2/14 бит = ... байт = ... Кбайт...
Garik23123
06.03.2021 05:40
Написать программу для решения двух (линейные алгоритмы): 1) найти площадь кольца, если радиус внутренний равен х, а внешний – у. (у x) 2) найти сумму цифр двузначного...
deloranka
28.03.2020 12:24
Написать на Python программу, которая по числу сможет определить день недели....
artem759342
01.12.2022 13:19
EV3 может функционироватьот ... ТИПОВ ИСТОЧНИКОВВыбрать1234...
ananas6947
09.10.2021 15:29
Найти ответ на Photon S=a×b P=(a+b)...
znatokchok
17.11.2022 15:19
Создайте таблицу размером 2х3 и раскрастье её по столбцам в разные цвета НЕ ПРОХОДИТЕ МИМО ...
sagoankristina1
04.02.2023 18:25
Преобразуйте числовую форму представления информации в графическую, используя следующие координаты точек:1(1,1), 2(2,1), 3(2,2), 4(3,2), 5(3,3), 6(7,3), 7(7,1), 8(11,1),...
nik667755mm
03.10.2020 02:06
Цовой аар - Интернетке қалт. Жолд - 4 калі круги иллаКоли - силий В.шуд килимхарессери, Чилхан...
аоп777777777777
28.02.2022 17:24
Написать описание холдена колфилда « над пропастью во ржи» в своей семье : характеристика семьи, семейные ценности, взаимоотношения с родителями и роль обязанности...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.