Примеры задач
Простые типы данных
Найти наибольший общий делитель трёх чисел. Методика решения
Используемые переменные: А, 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.