Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти количество и сумму членов последовательности, делящихся на заданное число Всем привет! Помогите пожалуйста решить задачу в Pascal: Даны натуральные числа n, m, целый числа a1, a2, …, an. Найти количество и сумму тех членов данной последовательности, что делятся на m. Заранее спасибо! https://www.cyberforum.ru/ pascal/ thread1170990.html ASCII-код буквы в букву Pascal
Доброго времени суток, дорогие форумчане! Имелась задача: Строка символов состоит из цифр, каждая пара цифр - ASCII-код буквы (двузначное число), записанный в обратном порядке цифр. Восстановить текст. Написал решение, хотелось бы узнать ваше мнение о правильности var s,res:String; i:Integer; begin Write('Enter text: '); Readln(s); for i:=1 to Length(s) do if i mod 2<>0 then...
Pascal Найти решение системы из n линейных уравнений, рассматривая ее как треугольную. Заранее извиняюсь, если этот вопрос уже был на форуме. Вот задание, я не понимаю как его делать( Найти решение системы из n линейных уравнений, рассматривая ее как треугольную. Пример треугольной системы. A11x1 + A12x2 + A13x3 + A14x4 = b1 A22x2 + A23x3 + A24x4 = b2 A33x3 + A34x4 = b3 A44x4 = b4 ... https://www.cyberforum.ru/ pascal/ thread1170876.html Pascal Сортировка столбца матрицы, если все элементы этого столбца < 0 Помогите доделать задачку. Смог сделать просто сортировку, но нужно просортировать именно те столбцы, где все элементы отрицательные. Как это сделать - не могу понять. Условия задачи в начале кода, неправильная сортировка с 29 строки. //№4 Дана вещественная матрица с максимальной размерностью 10х10. Отсортировать // по возрастанию элементы столбца,в котором все элементы отрицательные . ... https://www.cyberforum.ru/ pascal/ thread1170862.html
Создание базы данных Pascal
В общем прошу помощи у опытных людей, в паскале полный чайник,а сессия не за горами по инфе закрыть надо долги, задали создать базу данных , кто может помочь помогите пожалуйста :( в общем вот задание: 1.Сформировать список граждан, в котором указать фамилию, имя, отчество, адрес, профессию. Организовать в программе выборку и подсчет граждан с одинаковой профессией Очень прошу кто...
Pascal Работа с существующими компонентами типизированного файла https://www.cyberforum.ru/ pascal/ thread1170817.html
Доброго времени суток, дорогие форумчане.. Появилась небольшая проблема в решении небольшой задачи. Звучит она так: Дописать к компонентам файла Product.dat(шифр продукции и количество единиц) название продукции из файла-справочника Asort.dat (шифр продукции, название продукции). Вроде бы работать с типизированными файлами теоретически умею, но практика отсутствует, ну и эта задача вызвала у...
Pascal Подскажите, пожалуйста, типовая задачка по матрице Пусть дана вещественная квадратная матрица порядка п. Получите х1*хn + х2*хn-1 + ... + хn*х1, где хi — наибольшее значение элементов i-й строки данной матрицы. Собственно, наибольшие значения вывожу в одномерный массив, но как выполнить расчет по формуле и выдать его.. program Matrix; const nmax=10; var a:array of integer; mas, mis : array of integer; max:integer; n,i,j:integer; begin https://www.cyberforum.ru/ pascal/ thread1170788.html Найти ошибку в формуле. Цикл Pascal
P:=(sqr(cos(x*x)/sin(x*x))/ 2*a + b); P:=P+ exp(sqr(sin((a*x)*(a*x)))); S:=0; h:=5*a; n:=111-5*a; for i:=h to n do S:=(ln(abs(exp(ln(-1)*h)*(exp(ln(b)*5) +a)))) / 0.2*h; P:=P*S;
Pascal Указать атрибуты https://www.cyberforum.ru/ pascal/ thread1170655.html
Преподаватель прислал задание, а я вообще не бум-бум в том, что написано. Кто что подскажет? Задание 2. Укажите атрибуты, обуславливающие нарушение третьей нормальной формы (атрибут Место рождения считать простым). Вот таблица в 2 столбика: 1 Личный номер работника 2 ФИО 3 День рождения 4 Месяц рождения 5 Год рождения 6 Место рождения 7 Полное название...
Pascal Задача на массивы https://www.cyberforum.ru/ pascal/ thread1170605.html
Вопрос по условию задачи (с самим решением проблем нет) Даны массивы l1, ... , l15 ; m1, ... , m8 . Определить Разве может один и тот же индекс і использоваться и как параметр внешнего цикла (как индекс элемента массива), и как параметр внутренней суммы. Ведь это же абсурд! Я считаю, что параметром (счетчиком) суммы должна служить переменная с другим именем. Вот только как это доказать...
Pascal Распечатайте по выбору пользователя данные о студентах
В массиве содержится информация о зимней сессии 1-го курса. Сведения о каждом студенте (максимальное число студентов - 50) содержат следующие данные: фамилию и инициалы (до 30 символов), номер группы (от 1 до 2), оценки по предметам зимней сессии. Составьте программу, которая обеспечивает ввод полученной информации, распечатку её в виде таблицы, а также распечатайте по выбору пользователя данные...
Pascal Решение системы линейных уравнений вида [A][X]=[B] методом Гаусса Нужно написать программу для решение системы линейного уравнения виду = методом Гауса., де А матрица коэффициентов, В вольные члены системы уравнения. А) 3.8|5.1|2.8 4.1
Форумчанин Паскаля
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
09.05.2014, 21:38 0

Вложенные циклы. Найти количество и сумму членов данной последовательности, что делятся на заданное число. - Pascal - Ответ 6149592

09.05.2014, 21:38. Показов 1073. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var n,x,i,a:word;
     sum:longword;
     counter:word;
begin
readln(n,x);
sum:=0;
counter:=0;
for i:=1 to n do
begin
read(a);
if a mod x =0 
then begin 
  sum:=sum+a;
  inc(counter);
end;
end;
writeln('summa ravna:',sum,'kolvo chisel: ',counter);
end.


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

Найти количество и сумму тех членов данной последовательности, которые делятся на 5 и не делятся на 7
Даны натуральное число n, целые числа a1, ... , an. Найти количество и сумму тех членов данной...

Найти количество и сумму тех членов данной последовательности, которые делятся на 5 и не делятся на 7
Даны натуральное число n, целые числа a1,...an.Найти количество и сумму тех членов данной...

Массив: Найти количество и сумму теx членов данной последовательности, которые делиться на 5 и не делятся на 7...
Даны натуральное число n, целые числа a1,...,an. Найти количество и сумму теx членов данной...

Найти количество и сумму членов последовательности, делящихся на заданное число
Всем привет! Помогите пожалуйста решить задачу в Pascal: Даны натуральные числа n, m, целый числа...

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

Найти количество и сумму тех членов последовательности, которые делятся на 5, но не делятся на 7
1.Дан массив из n чисел. Найти количество и сумму тех членов последовательности, которые делятся на...

Найти количество и сумму тех членов последовательности, которые делятся на 5 и не делятся на 7
дано n и последовательность чисел a1,a2,a3 ... an.(цифры и n рядом из а это индексы).Найти...

Найти количество и сумму тех членов последовательности, которые делятся на 5 и не делятся на 7
Здравствуйте, никак не могу разобраться с задачей, помогите пожалуйста выполнить данную задачу на...

Найти количество и сумму членов последовательности, которые делятся на 5 и не делятся на 7
Дано n и последовательность чисел а1,а2,а3,...,аn. Найти количествво и сумму членов...

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