Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Составить программу для вычисления значений функции https://www.cyberforum.ru/ pascalabc/ thread653253.html Составить программу для вычисления значений функции F(x) на отрезке с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции. F(x)=tg\frac{x}{2}+2\cos x	Pascal ABC Процедура вывода на экран слов строки, начинающихся и заканчивающихся одной и той же буквой Процедура вывода на экран слов строки, начинающихся и заканчивающихся одной и той же буквой
Pascal ABC Верно ли, что введенное целое положительное четырехзначное число является палиндромом https://www.cyberforum.ru/ pascalabc/ thread652969.html 2) Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае.(Операторы IF и Case не использовать). Введенное целое положительное четырехзначное число является палиндромом	Pascal ABC Используя оператор CASE OF, определить уровень знаний учащихся по отметке https://www.cyberforum.ru/ pascalabc/ thread652959.html Использование оператора выбора Используя оператор CASE OF, определить уровень знаний учащихся по отметке: 0, 1, 2, 3 – неудовлетворительный, 4, 5, 6 – хороший, 7, 8, 9 – качественный, 10 – отличный.
Вычислить значение функции: Pascal ABC Вычислить значение функции под номером 9:	Pascal ABC Вычислить значение выражения https://www.cyberforum.ru/ pascalabc/ thread652931.html 1) Дана последовательность литер , имеющая вид: d1+d2-d3*d4 (di, i=1, 4-цифры). Вычислить значение выражения.
Pascal ABC Заданное натуральное число N является трехзначным Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном случае. 9. Заданное натуральное число N является трехзначным. https://www.cyberforum.ru/ pascalabc/ thread652910.html	Метод половинного деления Pascal ABC program mdp; uses crt; const e=0.01; p=0.01;n=100; function f(x: real): real; begin f:=sqr(x); end; var a, alf, b, bet, c, x: real; k:integer;
Pascal ABC Вычислить площадь треугольника. Вывести длины сторон в порядке убывания https://www.cyberforum.ru/ pascalabc/ thread652787.html Здравствуйте товарищи. Прошу помочь с задачкой. Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами тупоугольного треугольника, вычислите его площадь. Выведите длины сторон в порядке убывания. Вот собственно что получилось у меня : Program treugolnik; var a,b,c,x1,y1,x2,y2,x3,y3,p,S,min,max,sr:real; begin writeln('Введите через пробел координаты первой точки');...	Pascal ABC Найти корни уравнения Номер теста \|Проверяемый случай \|__Коэффициенты__\|________________Результаты________________ __________\|_________________\|__a__\|__b__\|__c__\| 1 \|d >0 \|1 \|1 \|-2 \|x1 = 1, x2 = - 2 2 \|d=0 \|1 \|2 \|1 \|Корни равны: x1 = - 1, x2 = - 1 3 \|d < 0 \|2 \|1 \|2 \|Действительных корней нет 4 \|a=0, b=0, c=0 \|0 \|0 \|0 \|Все коэффициенты равны нулю. х — любое число. 5 \|a=0, b=0, c<>0 \|0 \|0 \|2 \|Неправильное... https://www.cyberforum.ru/ pascalabc/ thread652784.html
Напечатать координаты точки пересечения прямых, либо сообщить, что прямые совпадают, не пересекаются или вовсе не cуществуют Pascal ABC Номер теста Проверяемый случай Коэффициенты прямых Результаты a1 b1 c1 a2 b2 c2 1 Первая прямая не существует 0 0 1 1 2 2 Это не прямая 2 Вторая прямая не существует 1 2 2 0 0 1 Это не прямая 3 Все коэффициенты одной или обеих прямых равны нулю 0 0 0 1 2 1 Это не прямая (прямые) 4 Коэффициенты попарно равны 1 2 1 1 2 1 Прямые совпадают 5 Коэффициенты попарно...	Pascal ABC Нахождение элементов многочлена сост-ть программу, кот-я запрашивает у пользователя целочисленные корни многочлена 4й степени и, исп-я т. Виетта, находит его коэф-ты. Вывести результат в виде таблицы: 1я сторона-степени, 2я-коэф при степ х https://www.cyberforum.ru/ pascalabc/ thread652756.html

Vadik1993

59 / 58 / 39

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

Сообщений: 165

17.09.2012, 20:32

Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p - Pascal ABC - Ответ 3460079

17.09.2012, 20:32. Показов 8804. Ответов 1

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

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

Решение

Pascal

program a12;
uses
crt;
var
  a:array[1..100]of integer;
  i,n,p, s: byte;
begin
  clrscr;
  writeln ('Дан массив A(i),состоящий из целых чисел.Получить произведение элементов массива, кратных p ');
  randomize;
  writeln('Введите количество элементов массива');
  readln(n);
  for i:=1 to n do
    begin
      writeln('Введите масств',i);
      readln(a[i]);
    end;
  writeln('Введите кратное число');
  readln(p);
  s:=1;
  for i:=1 to n do
    begin
      if a[i] mod p=0 then
        s:=s*a[i];
    end;
  writeln('s=',s);
readkey;
end.

Данная задача уже раньше решалась на данном форуме.

Вернуться к обсуждению:
Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p Pascal ABC

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

17.09.2012, 20:32

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

Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р.
Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р....

Найти произведение положительных элементов, кратных заданному числу
В произвольном одномерном массиве найти произведение положительных элементов, кратных заданному...

Найти произведение положительных элементов данного массива, кратных заданному числу K
Дан массив размерностью 25.Найти произведение положительных элементов данного массива,кратных...

Определить произведение элементов массива, кратных заданному числу p
дан массив из н элементов ( натур числа). Определите произведение элементов, кратных заданному...

	17.09.2012, 20:32

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

17.09.2012, 20:32

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

Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных заданному числу
Всем доброго времени суток! Задание: Дан массив из N элементов (натуральные числа). Определить...

Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных заданному числу Р
Задание: Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных...

Дан одномерный массив и число k. Найти сумму квадратов элементов массива, кратных заданному числу k
Вывести все в stringgrid1. Можно пожалуйста с объяснениями.

В матрице найти сумму нечетных элементов столбца и произведение отрицательных кратных заданному числу элементов строки
2 задача: Найти сумму нечетных элементов 2-го столбца и произведение отрицательных кратных 3...

Наверх