Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Анна02000
22.07.2022 17:56 •
Информатика
Написать программу на паскале : ) составить программу, проверяющую, являются ли данные три числа взаимно простыми. использовать подпрограмму.
Показать ответ
Ответ:
nast20171
03.10.2020 03:09
Числа являются взаимно простыми, если их наибольший общий делитель равен 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.
0,0
(0 оценок)
Популярные вопросы: Информатика
АуTист
29.09.2020 19:40
Расчётные задачи Информатика 8 класс Определите значение переменной a после выполнения алгоритма: а := 6; b := 1; b := a/2*b; a := 2*а + 3*b; В ответе укажите целое...
ruslankasaev
18.12.2020 20:46
Напишите команды к этому рисунку через приложение кумир, чертежник, до завтра . ...
accacherrygdghvcg
16.07.2022 22:55
ЗАДАНИЯ ПО СУММАТИВНОМУ ОЦЕНИВАНИЮ ЗА 2 ЧЕТВЕРТЬ Суммативное оценивание за раздел «Решение задач с электронных таблиц» 1. Подпишите названия фрагментов, использованных...
Girjd
24.03.2020 16:24
5. Используя суждения заполни таблицу Рыжеволосый мальчик Семикилограммовый груз Фарфоровый сервиз Объект Свойство Величина Значение величины Должно быть в виде таблицы...
anastaciarocha
19.02.2023 00:22
Ну не моё информатика...
Шан15
17.07.2020 03:08
Program z2; Procedure horline (Len: integer; s: char); Var i: integer; Begin For i:=1 to Len do write(s); Writeln; end;begin Horline (10, - ); Horline (20, * ); Horline...
bulkin12
13.01.2023 17:26
4. Двоичный код 1111 0001 1101 0000 1111 0001 1001 1110 1101 0000 содержитБайта или бита...
Scvetocheek1
22.04.2021 15:37
Определи правильные ответы об обычае уважения старших. Верных ответов: 2Им предоставлялись бесплатные угощение иночлег.На собраниях они играли заметную роль.Из их...
Katerina20015
09.05.2020 05:16
Рассказ (10-11 предложений) с отрицательными местоимениями (3-4 местоимения)...
evafadeeva05
20.01.2020 19:16
Choose the line of derivative nouns. a) appearance, minority, buildingb) plumber, adventure, sunrisec) children , movement, policemand) establishment, man , goate)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.