Составьте и запишите компьютерную программу на языке программирования паскаль для решения следующей : найти наибольший общий делитель (сокращённо нод) двух целых чисел х и y. кроме этого, ваша программа не должна вычислять нод, если введено хотя бы одно отрицательное число. о неправильном вводе чисел следует сообщить ! например, программа последовательно просит ввести два числа а и в. затем, если хоть одно число или оба числа отрицательные, программа сообщает об этом пользователю. если всё хорошо, то находится нод. на всякий случай: имена переменных в программах у обучающихся совпадать не должны. также следует обеспечить диалог с пользователем (например «введите положительные целые – натуральные – числа», «ввод , повторите ввод…» и т. в программе обязательны ! комментарий по ходу выполнения программы давать вразумительный. файл прикреплен.
144
380
Ответы на вопрос:
Var a,b,i,nod: integer begin a: =-1; b: =-1; //ввод первого числа writeln('введите первое число'); while a< 0 do begin readln(a); if a< 0 then writeln('ввод , повторите ввод первого числа'); end; //ввод второго числа writeln('введите второе число'); while b< 0 do begin readln(b); if b< 0 then writeln('ввод , повторите ввод второго числа'); end; //определение минимального числа if a> b then i: =b else i: =a; //перебор чисел от минимального до 0 (т.к. нод не может быть больше минимального числа) while nod=0 do begin i: =i-1; if (a mod i = 0) and (b mod i = 0) then nod: =i; end; //вывод нод writeln('нод ', a,' и ', b, ' = ', nod); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
prunsesca00515.10.2022 06:10
-
ВикаКотик28362704.05.2020 00:50
-
Евгений06070401.07.2020 03:21
-
Исбанка10.09.2020 23:44
-
кэтлин200513.02.2020 21:50
-
Эмиль0807201306.08.2022 23:59
-
1104198031.05.2022 02:08
-
Maximus2000018.08.2022 17:13
-
katerinalavrenchuk25.04.2021 16:33
-
said9716.05.2023 13:07
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.