Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Ошибка переполнения программного стека. Как исправить? https://www.cyberforum.ru/ pascalabc/ thread1089549.html
Нужно отсортировать 2 массива из 500 элементов методом Quicksort (быстрой сортировки) и методом пузырька, потом вывести кол-во перестановок. Pascal выдает "Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека ". Подскажите где ошибка! program qsort3; const c=500; var m1:array of integer; m2:array of integer; i, k, count,...
Вычислить значения функции Pascal ABC
Вычислить значения функции y=An/n для n, изменяющегося от 1 до 15, с шагом 1, A=2.
Pascal ABC Определить номер подъезда и этажа квартиры девятиэтажного дома по указанному ее номеру N Определить номер подъезда и этажа квартиры девятиэтажного дома по указанному ее номеру N. Считать, что на каждом этаже находится M квартир. Входные данные: В первой строке записано два целых числа: Номер квартиры N (N < 32767) и число квартир на этаже M (M < 32767) Выходные данные: В выходной поток вывести два целых числа через пробел: номер подъезда и номер этажа заданной квартиры. ... https://www.cyberforum.ru/ pascalabc/ thread1089498.html Pascal ABC Найти число, у которого сумма цифр больше https://www.cyberforum.ru/ pascalabc/ thread1089487.html
Дано два двухзначных числа. Найти число, у которого сумма цифр больше. Если сумма цифр этих чисел одинаковая, то вывести первое заданное число. Входные данные: Во входном потоке через пробел записаны два двухзначных числа. Выходные данные: В выходной поток вывести единственное целое число. Пример входного файла (input.txt): 78 45 Пример выходного файла (output.txt):
Выяснить, можно ли из отрезков составить произвольный треугольник Pascal ABC
Даны длины трех отрезков. Выяснить, можно ли из этих отрезков составить произвольный треугольник. Входные данные: Во входном потоке в первой строке записано через пробел три натуральных числа a, b и c (0 < a, b, c <= 30000) Выходные данные: В выходной поток вывести 'YES' или 'NO'. Пример входного файла (input.txt): 3 4 5 Пример выходного файла (output.txt):
Pascal ABC Сколько всего подарочных наборов можно собрать В каждый подарочный набор входит 1 ручка, 2 линейки и 4 тетради. На складе имеется a ручек, b линеек и c тетрадей. Сколько всего подарочных наборов можно собрать? Входные данные: Во входном потоке в первой строке задано три целых числа: a, b и c. (0 < a, b, c < 30000) Выходные данные: В выходной поток вывести единственное целое число. Пример входного файла (input.txt): 1 2 4 Пример... https://www.cyberforum.ru/ pascalabc/ thread1089436.html
Pascal ABC Определить, можно ли квадрат со стороной a поместить в окружность заданного радиуса R? https://www.cyberforum.ru/ pascalabc/ thread1089421.html
Определить, можно ли квадрат со стороной a поместить в окружность заданного радиуса R? Входные данные: Во входном потоке задано два вещественных числа - радиус окружности R и сторона квадрата a. Значение всех исходных величин не превышает 30000. Выходные данные: В выходной поток вывести 'YES' или 'NO'. Пример входного файла (input.txt): 2 1 Пример выходного файла (output.txt):
Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N) Pascal ABC
Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N).
Pascal ABC Подобрать интервал возрастания или убывания https://www.cyberforum.ru/ pascalabc/ thread1089297.html
Подобрать интервал изменения х и параметры таким образом, чтобы функция была либо монотонно возрастающей, либо монотонно убывающей. Вычислить значения функции в 10 точках х (в ответе представить в виде таблицы). Также в ответе должен быть тип функции. f(x)=(1+ax+b\ln x)/(1+ (1+cx^2)/(1+dx^k)) P.S. В функции дробь + еще в знаменателе дробь. В редакторе не нашел как сделать дробь..
Pascal ABC Нарисовать клоуна и домик https://www.cyberforum.ru/ pascalabc/ thread1089201.html
нужно нарисовать 3 и 4 задание...вроде как просто,а начинаю тупить и ошибки вылетают,напишите пожалуйста свои варианты
Pascal ABC Изменить данную программу организовав чтение исходных данных из текстового файла изменить размерность массива на квадратную матрицу 5х5
Изменить данную программу организовав чтение исходных данных из текстового файла изменить размерность массива на квадратную матрицу 5х5.(В программе должен быть модуль) Модуль: unit 13; interface const n=3; Type matr=array of real; mass=array of real; procedure Sum(A:matr; Var S:mass); procedure Minimum(S:mass; Var k:integer);
Pascal ABC Определить, сколько было дней, пригодных для купания Данные о температуре воды на Черноморском побережье за декаду сентября хранятся в массиве. Определить, сколько за это время было дней, пригодных для купания. https://www.cyberforum.ru/ pascalabc/ thread1089184.html
Модератор
9656 / 4976 / 3265
Регистрация: 17.08.2012
Сообщений: 15,476
05.02.2014, 03:03 0

Определить количество чисел, которые меньше заданного числа N - Pascal ABC - Ответ 5740940

05.02.2014, 03:03. Показов 3788. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено rosinw как решение

Решение

И зачем массив? По заданию он вроде как не требуется...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var i, n, t, k: integer;
 
begin
  write('Enter threshold: ');
  readln(n);
  k := 0;
  writeln('Enter 15 numbers:');
  for i := 1 to 15 do
    begin
      write(i:2, ': ');
      readln(t);
      if t < n then inc(k)
    end;
  writeln(k, ' numbers smaller than ', n);
  readln
end.


Вернуться к обсуждению:
Определить количество чисел, которые меньше заданного числа N Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.02.2014, 03:03
Готовые ответы и решения:

Определить количество чисел, которые меньше заданного числа N
№1. Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N. program...

Определить количество чисел, которые меньше заданного числа N
№1 Вычислить значения функции y=An/n для n, изменяющегося от 1 до 15, с шагом 1, A=2. №2...

Определить количество чисел, которые меньше заданного числа N
1 Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N. 2 Вычислить ...

Определить количество элементов, которые меньше заданного значения
2.10. В заданном массиве A(N) определите количество элементов, которые меньше заданного значения.

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.02.2014, 03:03
Помогаю со студенческими работами здесь

В массиве чисел найти сумму элементов,которые меньше заданного числа D.
приветик всем=))) я здесь новенькая=)))немного слышала что здесь обитают умные людии!!!! ПОМОГИТЕ...

Найти количество чисел в массиве, меньше заданного числа y.
Найти количество чисел в массиве, меньше заданного числа y. Если таких чисел нет, то вывести...

Последовательно вводятся 10 чисел. Найти количество чисел, которые меньше числа 2
Нужна помощь последовательно вводятся 10 чисел. Найти количество чисел, которые меньше числа 2

Найти количество чисел последовательности, которые меньше последнего введенного числа
С клавиатуры вводится натуральное число N. Затем вводится последовательность из N двухзначных...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru