Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ma4oMatoy
01.09.2020 04:31 •
Информатика
Склавиатуры вводятся два целых положительных числа. найти их наименьшее общее кратное. pascal abc для 8 класса
Показать ответ
Ответ:
crushkarulit
05.10.2020 19:03
Function NOK(A,B:integer):integer;
Begin
if A>B then result:=A-1
else result:=B-1;
repeat
result:=result+1
until (result mod A =0)and(result mod B = 0);
End;
Var
A,B:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn(NOK(A,B));
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
damirpernebek7
09.06.2023 23:58
3б*32битов+3Кб=. Найди значение выражения...
ar2018borisov
28.09.2021 11:08
Галузі використання комп ютерної техніки короткий твір...
kirill885
03.11.2022 09:47
Приведите примеры различных свойств информации из повседневной жизни Надёжность ПолнотаАктуальностьОбъективностьЦенностьПонятность1 свойство 1 пример...
даша3335
19.08.2021 07:10
Посчитать количество байт, килобайт, мегабайт и гигабайт в выражениях:1. Моя группа-МРиОА 3-42. Байкал–жемчужина Сибири!3 . Считая, что каждый символ кодируется одним байтом,...
Y563280
15.08.2021 00:40
Основные категорий политики безопасности...
serjo1216
16.12.2022 05:51
Пример № 2 Электронная книга содержит 150 страниц, на каждой страни- це 40 строк, в каждой строке 60 символов. Определите информаци- онный объем книги. рои...
marina0510251
28.04.2022 02:57
Сравните и проанализируйте различные единицы изме- рения. Заполните таблицу: Кбайт Мбайт Байт БИТ 24576 2048 1,5 34359738368 105960 0,008 Выполняем в тетради скорей...
Звёздочка1790
30.07.2020 07:04
В 3) Какой путь к файлу класс.txt (находящийся в папке 9б) из корневого каталога указан верно: А) С:|Мои документы|9б| класс.txt; В) С:|Мои документы|9б|; C) Мои документы|9|...
necoshevcom
23.05.2023 00:28
1) Определите информационный объём следующей фразы в кодировке Unicod, в которой каждый символ кодируется 16 битами. «Я учусь в школе №90» 21 бит B) 21 байт С) 42 байта...
Olegbro364682
28.03.2020 16:56
113- 2 11012- 10. 8 класс...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
if A>B then result:=A-1
else result:=B-1;
repeat
result:=result+1
until (result mod A =0)and(result mod B = 0);
End;
Var
A,B:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn(NOK(A,B));
End.