Произведение N первых нечетных чисел не превышает P - определить количество таких чисел

@GoVegas · Регистрация: 25.06.2011

Студворк — интернет-сервис помощи студентам

1. Произведение N первых нечетных чисел не превышает P. Определить количество этих чисел.
2. Набрать и отладить программу вычисления суммы последовательности вида 11+22... nn.
3. Набрать и отладить программу заполнения массива из 20 элементов случайными числами в диапазоне от 0 до 30. Распечатать массив в прямом и обратном порядке

напишите решение пожалуйста. сам в паскале я не оч .

@Unnamed2011 · 25.06.2011, 19:41

1 ая задача плохо сформулирована по мне так как 1*3*5*7 не превышает ста тысяч и ста двух тысяч, из числа P невозможно определить количество чисел в произведении. Нет, я не понимаю что требуется найти ). Ведь написано в условии произведение N первых нечетных чисел )Остальные простые, если никто не напишет, ночью скину сюда.

Добавлено через 2 минуты
P.S. программа 2 в пределах longint или же длинная арифметика?

Добавлено через 16 минут
Решение 3ей:

Pascal

uses
    crt;
const
    n=20;
var
    a:array [1..n] of byte;
    i:integer;
begin
    clrscr;
    randomize;
   for i:=1 to n do begin
    a[i]:=random(31);
   end;
   for i:=1 to n do begin
    write(a[i],' ');
   end;
   writeln;
   for i:=n downto 1 do begin
    write(a[i],' ');
   end;
   readln;
end.

Добавлено через 52 секунды
С отступами косяки ). Но подправить несложно думаю )

@Puporev · 26.06.2011, 11:32

1.

Pascal

uses crt;
var n,p,s,k:longint;
begin
clrscr;
write('Введите натуральное число P=');
readln(p);
s:=1;
n:=1;
k:=1;
while s*k<=p do
 begin
  k:=k+2;
  s:=s*k;
  n:=n+1;
 end;
write('N=',n,' S=',s);
readln
end.

Добавлено через 2 часа 15 минут
2.

Pascal

uses crt;
var n,i,k,a,s:longint;
begin
clrscr;
repeat
write('Введите натуральное число до 9999 n=');
readln(n);
until(n>0)and(n<=9999);
s:=0;
for i:=1 to n do
 begin
  a:=i;
  k:=1;
  while a>0 do
   begin
    a:=a div 10;
    k:=k*10;
   end;
  a:=k*i+i;
  writeln(a:10);{можно убрать, просто для проверки}
  s:=s+a;
 end;
write('S=',s);
readln
end.

@GoVegas 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 4
		1
	Произведение N первых нечетных чисел не превышает P - определить количество таких чисел 25.06.2011, 19:04. Показов 2382. Ответов 2 Метки нет (Все метки) 1. Произведение N первых нечетных чисел не превышает P. Определить количество этих чисел. 2. Набрать и отладить программу вычисления суммы последовательности вида 11+22... nn. 3. Набрать и отладить программу заполнения массива из 20 элементов случайными числами в диапазоне от 0 до 30. Распечатать массив в прямом и обратном порядке напишите решение пожалуйста. сам в паскале я не оч . 0

Опции темы