Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Free Pascal написать программу меняющую слова местами https://www.cyberforum.ru/ free-pascal/ thread653411.html написать программу которая при добавлении в нее текстовый документ(например блокнот и в нем написано "МАМА МАМА ПАПА ПАПА" создает еще 1 текстовый документ и меняет слова местами("ПАПА ПАПА МАМА МАМА").	Вычислить значение выражения Free Pascal записать на языке программирования free pascal: только там внизу а квадрат. а не а два
Free Pascal Из последовательности 10 двоичный целых чисел выбрать числа, которые делятся на 3 и найти сумму этих чисел Из последовательности 10 двоичный целых чисел выбрать числа, которые делятся на 3 и найти сумму этих чисел. https://www.cyberforum.ru/ free-pascal/ thread653182.html	Free Pascal Вычислить значение выражения https://www.cyberforum.ru/ free-pascal/ thread652965.html записать на языке программирования free pascal: Z=\sqrt{\frac{x{a}^{2}}{1-{a}_{2}}}
Список, очередь и стек: Определить номера машин заданной марки и стоимости Free Pascal Решить одну и ту же задачу, организуя список, очередь и стек. В поле данных каждого элемента списка записываются данные об автомобилях:: марка, номер, стоимость. Выведите на экран весь список и определите номера машин заданной марки и стоимости	Free Pascal Подсчет суммы кодов всех элементов в веденной строке https://www.cyberforum.ru/ free-pascal/ thread652883.html Подскажите пожалуйста, как сосчитать сумму кодов( например код буквы G=71 по ascii таблице) всех элементов в веденной строке. Распишите по подробнее, если не сложно :)
Free Pascal Изменение размеров консольного окна https://www.cyberforum.ru/ free-pascal/ thread652875.html Можно ли, как-нибудь изменить размеры консольного окна? Если можно, то как?	Найти полностью белый квадрат с максимальной площадью Free Pascal Доброго времени суток. Помогите, кто может, пожалуйста "На чёрно-белом изображении размером A строк x B столбцов необходимо найти полностью белый квадрат с максимальной площадью." Формат входного файла: В первой строке входного файла input.txt записаны два целых числа - количество строк A и столбцов B в изображении. В следующих A строках записаны значения цвета в количестве B без пробелов:...
Free Pascal Определить, какая цифра находится в к-й позиции последовательности 111213...9899 https://www.cyberforum.ru/ free-pascal/ thread652851.html Помогите написать программу на паскале. Задача: дано целое к от 1 до 100. Определить, какая цифра находится в к-й позиции последовательности 111213...9899 , в которой выписаны подряд все десятичные числа. Добавлено через 1 час 30 минут Нашел решение, вроде работает... program Overlord; uses crt; var i, K: integer; s, stmp:string; begin	Free Pascal Как расположить строки из массива в порядке возрастания? Здравствуйте!) Вот такой вопрос: как расположить строки в порядке возрастания, вроде, есть такие методы, как метод пузыря..какой из них наиболее красивый?:) У меня массив m1 содержит в себе строки, как их отсортировать в порядке возрастания, чтобы в начале была самая малая по длине? Огромное спасибо заранее!!)) https://www.cyberforum.ru/ free-pascal/ thread652798.html
Free Pascal Динамический массив: Определить сумму и количество элементов, предшествующих последнему четному числу с нечетным индексом Задан одномерный динамический массив.Определить сумму и количество всех элементов,предшествующих последнему четному числу с не четным индексом.	Free Pascal Найти в строках наиболее и наименее часто повторяющиеся символы (интересует алгоритм!) https://www.cyberforum.ru/ free-pascal/ thread652669.html Здравствуйте! Помогите, пожалуйста, разобраться с тем, как можно найти в нескольких строках (вводятся пользователем) наиболее часто повторяющийся символ и наименее часто повторяющийся, и как поменять их при этом местами? Мне что-то подсказывает, что здесь нужно сделать так: 1) удалить все пробелы 2) внести строки в массивы 3) взять за основу 1-ый символ и пройтись каким-то образом по всем...

Ev[G]eN

Mobile Software Engineer

5381 / 1585 / 956

Регистрация: 23.01.2011

Сообщений: 3,214

17.09.2012, 22:07

Определить произведение элементов массива, кратных заданному числу п - Free Pascal - Ответ 3460491

17.09.2012, 22:07. Показов 1372. Ответов 1

Метки (Все метки)

Сообщение было отмечено Aigerimss как решение

Решение

Pascal

const
  n = 10;
var
  Arr: Array[1..n] of Integer;
  Proizv: LongInt;
  Chislo: Integer;
  i: Byte;
begin
  Randomize;
  Proizv:=1;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    Arr[i]:=Random(45);
    write(Arr[i], ' ');
  end;
  writeln;
  write('Введите число: ');
  readln(Chislo);
  for i:=1 to n do
    if (Arr[i] mod Chislo = 0) then
      Proizv:=Proizv * Arr[i];
  writeln('Произведение: ', Proizv);
end.

Вернуться к обсуждению:
Определить произведение элементов массива, кратных заданному числу п Free Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.09.2012, 22:07

Готовые ответы и решения:

Одномерный массив. Посчитать Сумму отрицательных элементов кратных заданному числу
Условие: Посчитать Сумму отрицательных элементов кратных заданному числу. Сделать нужно задачу в...

Вычислить количество элементов массива, равных заданному числу, и произведение элементов массива с чётными номерами
а). Вычислить количество элементов массива А(20) равных заданному числу Х. б). Вычислить...

Найти произведение элементов массива, кратных заданному
Каждую строчку: как она работает и для чего!!! Пожалуйста! (3). program a12; uses crt;...

НАйти сумму элементов, кратных заданному числу и попавших в интервал [a,b]
Помогите Могу помочь перенести топик в правильный раздел. Только скажите куда, в какой подфорум.

	17.09.2012, 22:07

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.09.2012, 22:07

Помогаю со студенческими работами здесь

Определить, есть ли хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В
Составить программу для решения предложенной задачи. Выясните имеются ли среди чисел i3 – 17*i*n2 +...

Найти первый столбец двумерного массива, состоящий только из элементов, кратных числу С
Дано двумерный массив. Найти первый столбец, состоящий только из элементов, кратных числу С

Произведение элементов массива, кратных 5
Найти произведение элементов линейного массива целых чисел которые кратны 5.Размерность массива...

Определить номера строк массива, хотя бы один элемент которых равен заданному числу Х
Задан двумерный массив чисел(таблица) размерности (NxМ). Определить номера строк массива, хотя бы...

Наверх