Составьте и запишите компьютерную программу на языке программирования паскаль для решения следующей : найти наибольший общий делитель (сокращённо

Question

Информатика: Составьте и запишите компьютерную программу на языке программирования паскаль для решения следующей : найти наибольший общий делитель (сокращённо нод) двух целых чисел х и y. кроме этого, ваша программа не должна вычислять нод, если введено хотя бы одно отрицательное число. о неправильном вводе чисел следует сообщить ! например, программа последовательно просит ввести два числа а и в. затем, если хоть одно число или оба числа отрицательные, программа сообщает об этом пользователю. если всё хорошо,

Ови11 · Answer

Var a,b,i,nod:integerBegin a:=-1;b:=-1;//ввод первого числаWriteln( Введите первое число );While a 0 do beginreadln(a);if a 0 then writeln( Ввод ошибочен, повторите ввод первого числа );end;//ввод второго числаWriteln( Введите второе число );While b 0 do beginreadln(b);if b 0 then writeln( Ввод ошибочен, повторите ввод второго числа );end;//определение минимального числаif a b then i:=b else i:=a;//перебор чисел от минимального до 0 (т.к. НОД не может быть больше минимального числа)While nod=0 do...

Популярные вопросы