16.05.2016, 13:26 | #1 (permalink) |
Новичок
Регистрация: 16.05.2016
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Подпрограммы. Паскаль
1. Найти произведение четных делителей натурального числа. 2. Найти сумму целых чисел из промежутка от 1 до 200, у которых ровно 5 делителей. |
16.05.2016, 13:26 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Советую вам сразу обратить внимание на похожие обсуждения Паскаль, подпрограммы функций Паскаль, подпрограммы Паскаль, подпрограммы Паскаль. Подпрограммы внешние. Паскаль. Подпрограммы. |
24.06.2016, 01:32 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Код:
uses Crt; procedure F1(an:integer;var ak:longint); var i:integer; begin for i:=1 to an do if (i mod 2)=0 then if (an mod i)=0 then ak:=ak*i; end; function F2:integer; var i,j,t:integer; begin F2:=0; for i:=1 to 200 do begin t:=0; for j:=1 to i do begin if (i mod j)=0 then Inc(t); if t>5 then Break; end; if t=5 then F2:=F2+i; end; end; var n:integer; k:longint; begin ClrScr; repeat Write('Naturalnoe cislo n<101 = '); Readln(n); until n<101; Writeln; k:=1; F1(n,k); if k=1 then Writeln('Net cetmih deliteley') else Writeln('Proisvedenie = ',k); Writeln; Writeln('Summa cisel s 5_ju deliteljami = ',F2); ReadKey; end. Последний раз редактировалось Евгений; 24.06.2016 в 01:41 |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|