Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Составить алгоритм нахождения суммы https://www.cyberforum.ru/ pascalabc/ thread775467.html
Составить алгоритм нахождения суммы. S=1/3*3+1/5*5+1/7*7+1/(2n+1)*(2n+1); Добавлено через 31 минуту Помогите кто-нибудь!
Даны целое число k (1 ≤ k ≤ 222) и последовательность цифр Pascal ABC
Даны целое число k (1 ≤ k ≤ 222) и последовательность цифр 123...91011...9899100101...109110, в которой выписаны подряд все натуральные числа от 1 до 110. Определить k-ю цифру.
Pascal ABC Посчитать кол-во чисел попадающих в интервал [10; 15] Учусь на нефтегазе, абсолютный чайник в паскале. Да и он в принципе мне не нужен помогите , кто может Решить 3 простейших задачки , с составлением блок-схем и написанием их на Паскале 1 . Вычислить y=3 cos 2 (x2)-2 sin x. Выполнить для всех значений аргумента х больше 0, задаваемых с клавиатуры https://www.cyberforum.ru/ pascalabc/ thread775448.html Pascal ABC Дата некоторого дня определяется тремя натуральными числами Дата некоторого дня определяется тремя натуральными числами: g (год), m (порядковый номер месяца) и n (число). По заданным g, n и m определить: a. дату предыдущего дня; b. дату следующего дня. В обеих задачах рассмотреть два случая: 3. заданный год не является високосным; 4. заданный год может быть високосным https://www.cyberforum.ru/ pascalabc/ thread775446.html
Даны три действительных числа. Найти наибольшее значение из их суммы и произведения Pascal ABC
Даны три действительных числа. Найти наибольшее значение из их суммы и произведения.
Pascal ABC С начала 1990 года по некоторый день прошло n месяцев и 2 дня. Определять название месяца этого дня https://www.cyberforum.ru/ pascalabc/ thread775417.html
С начала 1990 года по некоторый день прошло n месяцев и 2 дня. Определять название месяца ( январь, февраль и т.п) этого дня
Pascal ABC Дан двумерный массив А(N,M) из случайных целых двузначных чисел. Найти сумму абсолютных значений элементов этого массива https://www.cyberforum.ru/ pascalabc/ thread775411.html
Дан двумерный массив А(N,M) из случайных целых двузначных чисел. Найти сумму абсолютных значений элементов этого массива
Pascal ABC Напишите тетрис!
Пожалуйста, кто-нибудь постарайтесь написать Тетрис, если получится - ответьте. Просто я ещё немного освоил на Pascal ABC. Заранее спс.
Pascal ABC тестовый файл результаты соревнований по бегу записанны в текстовом файле в форматеЖ <номер участника> <фамилия> <имя> <минуты>:<секунды>.<сотые секунды> выведите в файл информацию о победителях соревнования(три призовых места) в формате <Номер участника> <время в секундах> <Фамилия> <Имя> (<номер участника>) при этом если два участника пробежали за одно и то же время, то они вдвоем занимают одно и то же... https://www.cyberforum.ru/ pascalabc/ thread775396.html Pascal ABC Задача по информатике (Двумерные массивы) Определить минимальный элемент квадратной матрицы С(N;N) из случайных двузначных чисел https://www.cyberforum.ru/ pascalabc/ thread775390.html
Pascal ABC файлы типизированый
Даны два типизированных файла целых чисел. Записать в третий файл целых чисел суммы соответствующих чисел из исходных файлов, пока не закончится любой из данных файлов.
Pascal ABC Найти в каждой строке матрицы максимальный элемент Дана матрица B(N,M) из случайных чисел.Найти в каждой строке матрицы максимальный элемент. https://www.cyberforum.ru/ pascalabc/ thread775372.html
73 / 73 / 64
Регистрация: 21.01.2013
Сообщений: 147
30.01.2013, 20:25 0

Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти - Pascal ABC - Ответ 4073305

30.01.2013, 20:25. Показов 10014. Ответов 2
Метки (Все метки)

Ответ

6ез использования массивов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var summ,a: real;
     q: integer;
begin
     summ:=0;
     write('Введите числа: ');
     for q:=1 to 4 do
         begin
          read(a);
          if a>5 then summ:=summ+a;
         end;
     writeln('Сумма: ',summ);
end.


Вернуться к обсуждению:
Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2013, 20:25
Готовые ответы и решения:

Даны числа от 1 до n Найти среднее арифметическое только тех чисел Которые больше числа x вводимого с клавиатуры
Здравствуйте, нужна ваша помощь! Даны числа от 1 до n Найти среднее арифметическое только тех...

Определить сумму тех вещественных чисел, которые больше P
Даны натуральное число n и вещественные числа b1, b2,...,bn. Определить сумму тех вещественных...

Даны натуральные числа от 1 до 100.Найти сумму только тех чисел, которые оканчиваются на 3.
Даны натуральные числа от 1 до 100.Найти сумму только тех чисел, которые оканчиваются на 3.

Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1
1.Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1.

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

Найти сумму тех чисел, которые больше заданного М
вводить в переменную x последовательно 25 чисел x. найти сумму тех чисел которые &gt; заданного М...

Даны числовой ряд и некоторое число e>0. Найти сумму тех членов ряда, которые по модулю больше или равны e
Даны числовой ряд и некоторое число e&gt;0. Найти сумму тех членов ряда, которые по модулю больше или...

Массивы: Найти произведение тех чисел, которые больше заданного числа
2. Дана последовательность целых положительных чисел. найти произведение тех чисел, которые больше...

Найти произведение только тех чисел, которые больше заданного числа
дана последовательность целых положительных чисел. найти произведение только тех чисел, которые...

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