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

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

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

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

Используемые переменные:
А, 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.

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

Назад

X