Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
LenaVesna
0 / 0 / 0
Регистрация: 18.05.2014
Сообщений: 27
#1

Верно ли, что произведение заданных целых чисел не меньше b - Pascal ABC

02.06.2014, 12:19. Просмотров 237. Ответов 1
Метки нет (Все метки)

Дано натуральное число b и n целых чисел. Верно ли, что произведение данных целых чисел не меньше b.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2014, 12:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Верно ли, что произведение заданных целых чисел не меньше b (Pascal ABC):

Верно ли, что произведение чисел меньше 10 000? - Pascal ABC
Даны числа a1, a2,...,a8. Верно ли, что их произведение меньше 10 000? Добавлено через 1 час 18 минут Решение В паскаль ABC.

Выяснить, верно ли, что произведение чисел меньше 10 000 - Pascal ABC
Даны числа a1, a2,...,a8. Верно ли, что их произведение меньше 10 000?

Верно ли, что среди четырех заданных пользователем целых чисел есть хотя бы одна пара соспадающих - Pascal ABC
Написать программу, которая проверяет истиннсоть высказывания: "Среди четырех заданных пользователём целых чисел a,b,c, d усть хотя бы одна...

Выяснить, верно ли, что количество тех чисел, которые меньше 20, равно пяти - Pascal
Эти задачи требуется решить в ПАСКАЛЕ: 1) Даны вещественные числа х1,х2...,х10. Выяснить, верно ли, что количество тех из них, которые...

Найти произведение целых положительных чисел, больше 20, меньше 100 и кратных 3 - Pascal ABC
Найти произведение целых положительных чисел,больше 20,меньше 100 и кратных 3. Составить программу с постусловием.

Определить, верно ли, что среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных - Pascal ABC
среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных помогите

1
erl27
892 / 741 / 432
Регистрация: 06.09.2013
Сообщений: 1,561
02.06.2014, 12:52 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  N, d, b, i: integer;
  
begin
  cls;
  repeat
    write('N = ');
    readln(N)
  until N > 0;
  write('b = ');
  readln(b);
  writeln('Введите ', n, ' целых чисел:');
  d := 1;
  for i := 1 to N do begin
    read(n);
    d := d * n
  end;
  writeln;
  if d >= b then write('Верно')
  else write('Нет')
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2014, 12:52
Привет! Вот еще темы с ответами:

Дано натуральное число. Верно ли следующее: произведение его цифр меньше 50 - Pascal
1 В некотором году (назовем его условно первым) на участке в 100 гектаров средняя урожайность ячменя составила 20 центнеров с гектара....

Определить сумму чисел меньше P,произведение чисел больше H и кол-во чисел в диапозоне значений P и H - Pascal
ПОМОГИТЕ ПОЖАЛУЙСТА!!))) даны число P и H.Определить сумму чисел меньше P,произведение чисел больше H и кол-во чисел в диапозоне...

Определить сумму чисел меньше P,произведение чисел больше H и кол-во чисел в диапозоне значений P и H - Pascal
ПОМОГИТЕ!!!!! даны число P и H.Определить сумму чисел меньше P,произведение чисел больше H и кол-во чисел в диапозоне значений P и H....

Верно ли, что сумма элементов, которые меньше 50, есть четное число? - Pascal
Дан массив целых чисел. Верно ли, что сумма элементов, которые меньше 50, есть четное число?


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

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

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