Составить программу разложения

SkyNexx · 08.10.2013, 21:13

составить программу которая будет выполнять разложение на простые множители заданное число Н
Помогите пожалуйста)Паскаль-Турбо)11 класс)

Vladimir_S · 09.10.2013, 10:38

Цитата:

Сообщение от SkyNexx

составить программу которая будет выполнять разложение на простые множители заданное число Н
Помогите пожалуйста)Паскаль-Турбо)11 класс)

Например, так:

Код:

Var
 H,m,i:LongInt;
Begin
 Write('H = ');
 Readln(H);
 Writeln;
 Write(H,' = 1');
 Repeat
  m:=0;
  i:=1;
  repeat
   Inc(i);
  until ((H mod i)=0) or (i>H);
  If (H mod i)=0 then
   begin
    m:=i;
    write('*',m);
    H:=(H div m);
   end;
 Until m=0;
 Readln
End.

08.10.2013, 21:13	#1 (permalink)
SkyNexx Новичок Регистрация: 22.01.2013 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Составить программу разложения составить программу которая будет выполнять разложение на простые множители заданное число Н Помогите пожалуйста)Паскаль-Турбо)11 класс)

08.10.2013, 21:13
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Мой вам совет - поищите ответы в аналогичных обсуждениях Помогите составить программу на С++ Составить программу Составить программу на Паскале

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070