Введите целое число x (x>1): 24
24 = 1 * 2 * 2 * 2 * 3
Чтобы попробовать онлайн выполнить этот код, скопируйте его, перейдите по ссылке ссылке и вставьте скопированный код. Дальше нажмите кнопку "Выполнить". Удачи на экзаменах.

begin
 write('Введите целое число x (x>1): ');
 var x := ReadInteger;
 assert(x>1);
 
 var i := 2;
 write(x, ' = 1');
 repeat
 if x mod i = 0 then
 begin
 write(' * ', i);
 x := x div i;
 end
 else i += 1;
 until x = 1;
end.


 Похожие публикации
2015-10-14 • Просмотров [ 320 ]