Примеры задач

Простые типы данных


Найти наибольший общий делитель трёх чисел.

Методика решения

Используемые переменные:
А, b, c – числа;
Nod – наибольший общий делитель;
I – параметр цикла.

Для реализации данной программы понадобится операция mod – нахождение остатка от деления.
Для начала, считываем с экрана три числа ( a, b, c ). Затем воспользуемся циклом с параметром, в котором будем перебирать i от 1 до любого из считанных чисел, и проверять, является ли i общим делителем чисел a, b и c (Если a mod i =0, b mod i = 0 и c mod I =0, то есть, остатки от деления всех трёх чисел на I равны 0, то I является их общим делителем). Если да, то присваиваем значение I переменной nod.
После выполнения цикла переменная nod равна наибольшему общему делителю чисел. Выводим её на экран.

Листинг программы

Program ex7;
uses crt;
var a,b,c,i,nod:integer;
BEGIN clrscr;
writeln('Введите 3 числа ');
readln(a,b,c);
for i:=1 to a do
if (a mod i=0) and (b mod i=0) and (c mod i=0) then
nod:=i;
writeln(nod);
readkey;
END.

Запустить программу






Назад

Закрыть