program Stepeny_a; Uses Crt; var a,b,c : real; begin writeln ( Введите числа a и b ); readln ( a, b ); c := a; while c < b do begin writeln (c:8:2) ; c := c*a; end; readln; end. Даны числа a, b (a > 1). Получить все члены бесконечной последовательности a, a 2, a 3, … a n пока a n <b При выполнении этой программы переменная с последовательно принимает значение a, a 2, a 3 …. Изменение с происходит до тех пор, пока оно не станет больше b. Если а>b, то не будет выводить ни одного значения.

Он основан на следующих свойствах величин: пусть a и b-одновременно 0, и пусть a b. Если b=0, то НОД(a,b) = a, Если b 0, то для чисел a,b,c, где c- остаток от деления a на b (c=a mod b) выполнено равенство: НОД(a,b)=НОД(b,c), Например: НОД(15,6)=НОД(6,3)=НОД(3,0)=3. - Это алгоритм вычисления наибольшего общего делителя (НОД) двух целых положительных чисел.

Начало Задать a, b B>0 C:= a MOD b A:= b B:= c Конец НОД = a Program Evklid; Uses crt; Var a,b,c: integer; begin Clrscr; Writeln (Enter a, b. (a>b)); readln( a, b); While b>0 do begin c:= a MOD b; a:= b; b:= c; end; Writeln (NOD(a,b)=,a); Readln; end.