Написать программу на паскале : ) составить программу, проверяющую, являются ли данные три числа взаимно простыми. использовать подпрограмму.
279
449
Ответы на вопрос:
Числа являются взаимно простыми, если их наибольший общий делитель равен 1. используя это свойство, напишем программу: var a, b, c: integer; {нод двух чисед} function gcd(a, b: integer): integer; var t: integer; begin while b > 0 do begin t : = b; b : = a mod b; a : = t; end; gcd : = a; end; {проверка трех чисел на взаимную простоту} function iscoprime(a, b, c: integer): boolean; begin iscoprime : = gcd(gcd(a, b), c) = 1; end; begin read(a, b, c); if iscoprime(a, b, c) then write('числа взаимно простые') else write('числа не являются взаимно простыми'); end.
1. var a, b, s: real; begin readln(a, b); s: =s*b; writeln(s); end. 2. var a, b, c, d, s: real; begin readln(a, b, c, d); s: =a+b+c+d; writeln(s); end. 3. var a, b, c, mult: real; begin readlb(a, b, c); mult: =a*b*c; writeln(mult); end. 4. var a, h, s: real; begin readlb(a, h); s: =a*h; writeln(s); end. 5. var a, b, o: real; begin readln(a, b); o: =a/b; writeln(o); end. 6. const pi=3.14; var r, l: real; begin readln(r); l: =2*pi*r; writeln(l); end. 7. const pi=3.14; var r, s: real; begin readln(r); s: =pi*sqr(r); writeln(s); end. 8. var a, s: real; begin readln(a); s: =sqr(a); writeln(s); end. 9. var a, h, s: real; begin readln(a, h); s: =a*h; writeln(s); end. 10. хз что это.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ghhhghf17.10.2022 16:19
-
yecgaass12121206.04.2022 13:28
-
alekslisalove21.04.2023 21:20
-
NastiaZaic24.07.2021 16:57
-
Ijony29.01.2020 06:40
-
Luky4anovadasha22.09.2021 04:02
-
kokola50000111.05.2022 22:57
-
зулейха424.03.2022 08:39
-
Anonim78e27.08.2022 18:34
-
sweetk03.12.2022 15:27
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.