27.03.2013, 14:01 | #1 (permalink) |
Member
Регистрация: 27.03.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Процедуры
|
27.03.2013, 14:01 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
У нас на каждый вопрос найдется ответ, почитайте похожие темы Pascal, процедуры Процедуры Pascal. Функции и процедуры |
28.03.2013, 23:29 | #4 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Код:
program Matrix2; var i,A,N:integer; F: array [1..15] of integer; procedure Factors(A:integer; var N:integer; var F: array [1..15] of integer); var jj,j:integer; begin jj:=1; while a>1 do begin j:=2; while not((a mod j)=0) do inc(j); F[jj]:=j; a:=a div j; inc(jj); end; N:=jj-1; end; begin write('Введите A:'); read(A); writeln; Factors(A,N,F); for i:=1 to N do write(F[i]:3); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|