Home
О нас
Products
Services
Регистрация
Войти
Поиск
OlgaBoyko
@OlgaBoyko
December 2021
1
6
Report
С клавиатуры вводятся два целых положительных числа. Найти их наименьшее общее кратное.
Pascal ABC
функцией
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
nelle987
Verified answer
PascalABC.NET 3.2:
function gcd(a, b: integer): integer := (a * b = 0) ? a + b : gcd(b, a mod b);
function lcm(a, b: integer) := (max(a, b) div gcd(a, b)) * min(a, b);
begin
print(lcm(readinteger, readinteger));
end.
1 votes
Thanks 1
More Questions From This User
See All
OlgaBoyko
August 2022 | 0 Ответы
malchik opuskaetsya v lifte dvizhushemsya ravnomerno kak izmenitsya uvelichitsyaume
Answer
OlgaBoyko
August 2022 | 0 Ответы
minutnaya strelka chasov za odin chas sovershaet polnyj oborot kakoj put prohodit4a665ae949f084e502b3677206274578 80147
Answer
OlgaBoyko
July 2022 | 0 Ответы
najti i vyvesti na ekran vse celye chisla iz promezhutka ot 1 do k v desyatichnoj zc5ae4ce024a1b17382934ff7d6f365a5 80548
Answer
OlgaBoyko
July 2022 | 0 Ответы
s klaviatury vvoditsya celoe polozhitelnoe chislo opredelit skolko raz v etomd79d9411c231ce08d64f4b2ad6284406 95917
Answer
OlgaBoyko
July 2022 | 0 Ответы
najti i vyvesti na ekran vse celye chisla iz promezhutka ot 1 do k v desyatichnoj z
Answer
OlgaBoyko
July 2022 | 0 Ответы
pascal abc imeetsya massiv celyh chisel razmerom n zadayotsya konstantoj v kode
Answer
OlgaBoyko
July 2022 | 0 Ответы
vyvesti na ekran vse trehznachnye naturalnye chisla summa cifr kotoryh ne prevos7c96b46f7f5b728cd75ab0d12c1a9c58 17034
Answer
OlgaBoyko
March 2022 | 0 Ответы
proanalizirujte grammaticheskuyu strukturu predlozheniya i opredelite kakaya iz priv
Answer
OlgaBoyko
March 2022 | 0 Ответы
najdite vse znacheniya parametra b takiechto uravnenie x2x 4x 2b imeet rovno
Answer
OlgaBoyko
December 2021 | 0 Ответы
s klaviatury vvoditsya celoe chislo k klt5 najti i vyvesti na ekran pervye k
Answer
рекомендуемые вопросы
rarrrrrrrr
August 2022 | 0 Ответы
o chem dolzhny pozabotitsya v pervuyu ochered vzroslye pri organizacionnom vyvoze n
danilarsentev
August 2022 | 0 Ответы
est dva stanka na kotoryh vypuskayut odinakovye zapchasti odin proizvodit a zapcha
myachina8
August 2022 | 0 Ответы
najti po grafiku otnoshenie v3v1 v otvetah napisano 9 no nuzhno reshenie
ydpmn7cn6w
August 2022 | 0 Ответы
Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...
millermilena658
August 2022 | 0 Ответы
opredelite kak sozdavalas i kto sozdaval arabskoe gosudarstvo v kracii
MrZooM222
August 2022 | 0 Ответы
ch ajtmanov v rasskaze krasnoe yabloko ispolzuet metod rasskaz v rasskaze opi
timobila47
August 2022 | 0 Ответы
kakovo bylo naznachenie kazhdoj iz chastej vizantijskogo hrama pomogite pozhalujsta
ivanyyaremkiv
August 2022 | 0 Ответы
moment. 6....
pozhalujsta8b98a56c0152a07b8f4cbcd89aa2f01e 97513
sarvinozwakirjanova
August 2022 | 0 Ответы
pomogite pozhalusto pzha519d7eb8246a08ab0df06cc59e9dedb 6631
×
Report "С клавиатуры вводятся два целых положительных числа. Найти их наименьшее общее к..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
PascalABC.NET 3.2:function gcd(a, b: integer): integer := (a * b = 0) ? a + b : gcd(b, a mod b);
function lcm(a, b: integer) := (max(a, b) div gcd(a, b)) * min(a, b);
begin
print(lcm(readinteger, readinteger));
end.