Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования
Паскаль для решения следующей задачи:
НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ (сокращённо НОД) двух целых чисел Х и Y. КРОМЕ этого, ВАША ПРОГРАММА не должна вычислять НОД, если введено хотя бы одно отрицательное число. О неправильном вводе чисел следует сообщить пользователю!!!
Например, программа ПОСЛЕДОВАТЕЛЬНО просит ввести два числа А и В.
Затем, если хоть одно число или оба числа отрицательные, программа сообщает об этом пользователю. Если всё хорошо, то находится НОД.
Довать комментарии срочно нужна помощь
Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите через пробел два неотрицательных числа:');
if (a<0) or (b<0) then Writeln('Неверный ввод')
else begin
while b<>0 do (a,b):=(b,a mod b);
Writeln('НОД этих чисел: ',a)
end
end.
Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите через пробел два неотрицательных числа:');
if (a<0) or (b<0) then Writeln('Неверный ввод')
else begin
while b<>0 do (a,b):=(b,a mod b);
Writeln('НОД этих чисел: ',a)
end
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад