Как решить такую задачку?
=======================================
Произведение N первых нечетных чисел равно р. Сколько сомножителей взято?
=======================================
Полная версия: поиск сомножителей...
koder,
ну, так в чем проблема? Проходи в цикле по всем нечетным числам начиная с 1, и находи их произведение (и заодно подсчитывай количество) до тех пор, пока произведение не станет равно P... И ты сразу узнаешь, чему равно N (как раз количеству, которое ты подсчитывал) ;)
ну, так в чем проблема? Проходи в цикле по всем нечетным числам начиная с 1, и находи их произведение (и заодно подсчитывай количество) до тех пор, пока произведение не станет равно P... И ты сразу узнаешь, чему равно N (как раз количеству, которое ты подсчитывал) ;)
Примерно так
Uses
CRT;
var
count,
count2 : Integer;
us : Integer;
su : integer;
p : Byte;
begin
ClrScr;
ReadLn(p);
su:= 1;
For count:= 1 to 5 do
If (count mod 2 <>0) AND (su <>p) then
begin
su:= su * count;
count2:= count2+1;
end;
WriteLn(count2);
ReadKEy;
end.
Код
Uses
CRT;
var
count,
count2 : Integer;
us : Integer;
su : integer;
p : Byte;
begin
ClrScr;
ReadLn(p);
su:= 1;
For count:= 1 to 5 do
If (count mod 2 <>0) AND (su <>p) then
begin
su:= su * count;
count2:= count2+1;
end;
WriteLn(count2);
ReadKEy;
end.
Цитата
count mod 2 <>0
- проверяет нечётность (можно было и подругому - не столь важно)Цитата
(su <>p)
- чтобы обойтись без while..do и repeat..until и не париться с избежанием лишней итерацииЦитата
su:= su * count
- собственно для вычисления произведенияЦитата
count2:= count2+1
- для накопления количества элементов произведения которых даёт P
VBproffi, предупреждаю сразу:
в следующий раз заведомо неверные программы будут удаляться !!!
Например, вот это:
Очень мудрое решение: в задаче на "пока <что-то> делать <то-то>" нужно избегать while ... do и repeat ... until
в следующий раз заведомо неверные программы будут удаляться !!!
Например, вот это:
Цитата(VBproffi @ 26.06.05 9:57)
- чтобы обойтись без while..do и repeat..until и не париться с избежанием лишней итерации
Очень мудрое решение: в задаче на "пока <что-то> делать <то-то>" нужно избегать while ... do и repeat ... until
хехе и вправду не работает ...
вот :
и не надо тут ничего сочинять ...
вот :
uses crt;
var
i,p,count,n:integer;
Begin
clrscr;
write('n='); readln(n);
i:=1; p:=1; count:=0;
while(p<n) do begin
p:=p*i;
inc(i,2);
inc(count);
end;
if p=n then
writeln('count=',count);
readln;
End.
и не надо тут ничего сочинять ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.