Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
MIcov15
13 / 12 / 5
Регистрация: 16.08.2014
Сообщений: 150
1

Какие числа надо перемножить, чтобы получить исходное?

10.05.2015, 13:23. Просмотров 679. Ответов 1
Метки нет (Все метки)

Есть число,допустим 19.3 ,нужно узнать какие числа нужно перемножить что бы его получить(округленные числа тоже считаются ,например числа 19.276 ,19.336 подойдут к ответу) .Первое число может быть только меньше 0.1(но положительное) ,второе должно быть целое(положительное) и не больше 2000.Программа должна быть универсальной

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a,i,u :real ;
s: integer ;
 begin          I:=0;u:=0;
  readln(a);
      repeat
       i:=i+1;  u:=0;
       repeat
        u:=u+0.001;
                     if ((abs((a-trunc(a))-(i*u-trunc(i*u)))<0.05)
         and (trunc(i*u)=trunc(a)))   then writeln(i:10:10);
           until u>=0.1
       until i>2000;
 
 
 
 
   readln
 
  end.
Но я не уверен что она работает правильно
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2015, 13:23
Ответы с готовыми решениями:

Какое количество первых натуральных чисел надо перемножить,чтобы их произведение превысило 10^6
Какое количество первых натуральных чисел надо перемножить,чтобы их...

Какие драгоценности надо взять вору, чтобы краденное стоило как можно дороже?
Вор пробрался в ювелирный магазин. На каждом драгоценном предмете указаны его...

Определить, какие предметы надо положить в рюкзак, чтобы общий вес не превышал заданный
Имеется m различных предмметов известен вес каждого предмета и его стоимости ...

Массив. Увеличить все четные числа на исходное значение первого четного числа
помогите, пожалуйста, решить задачу. дан целочисленный массив размера N....

Увеличить все нечетные числа, содержащиеся в массиве, на исходное значение последнего нечетного числа
Дан целочисленный массив размера N. Увеличить все нечетные числа, содержащиеся...

1
Joy
Эксперт Pascal/Delphi
2175 / 1202 / 1438
Регистрация: 29.08.2014
Сообщений: 4,389
12.05.2015, 08:16 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
const eps=1e-6;
var
  a:real;
  i:integer;
begin
  readln(a);
  if a/2000>0.1-eps then writeln('HET BapuaHTa')
  else
     for i:=2000 downto 1 do
       if a/i<0.1-eps then  writeln(a/i:0:6,':',i);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2015, 08:16

Какое количество членов прогрессии, начиная с первого, надо перемножить что бы произведение превысило 10000
Арифметическая прогрессия задана первым членом a1 и разностью (d&gt;0). Какое...

Определить, сколько членов последовательности нужно перемножить, чтобы выполнилось условие
Числовая последовательность заданная формулой ({C}_{I}=2{i}^{3}+3/I+4) какое...

Для каждого числа определить число шагов которые надо сделать, чтобы это число обратить в единицу
Числовая последовательность определяется следующим способом. Для каждого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru