Здесь приведен код программы на Паскале-АБС, в которой введенное целое число раскладывается на простые множители. К примеру, если вам надо разложить на множители число 24, то диалог и результат будет выглядеть так:
Введите целое число 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 • Просмотров [ 1354 ]