Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вычисление определенных интегралов на заданном интервале 1. Найти первообразную F(x) от функции f(x) с помощью символьного преобразования. 2. Найти численное значение интеграла по формуле F(b)-F(a). 3. Найти численное значение интеграла непосредственным... https://www.cyberforum.ru/ turbo-pascal/ thread1272010.html	Turbo Pascal Вывести все целые степени числа A от 1 до N Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N. Использовать цикл for.
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread1271925.html Цель: рaзработать алгоритм и рaзработать программу ! Y={1-b/a ,-10 , (a-5)/b, a>b a=b a<b	Turbo Pascal Вычисления значения функции на отрезке с заданным шагом https://www.cyberforum.ru/ turbo-pascal/ thread1271923.html Составить программу для вычисления значения функции F(x) на отрезке с шагом h. Результат представить в виде таблицы, где первый столбец – значения аргумента, второй – значения функции: F(x)=3x+4sinx.
Turbo Pascal Определить вероятную величину выигрыша или проигрыша при покупке трех лотерейных билетов Помогите пожалуйста с программкой!:cry: Определить вероятную величину выигрыша или проигрыша при одной покупке трех лотерейных билетов ценой 10 рублей каждый, если известно, что в пачке из 1000...	Turbo Pascal Функция задана формулой, составить программу для её вычисления задание никак не получается, помогите пожалуйста. Функция задана формулой y=\frac{\sqrt{12-4x-x^2}} {\sqrt{8+6x+x^2}} составить программу для её вычисления. (Найти область допустимых... https://www.cyberforum.ru/ turbo-pascal/ thread1271896.html
Turbo Pascal Блок схема вычисления выражения нужно сделать блок схему для алгоритма дано a, b. Найти: y=\begin{cases}a/b & \text{ if } a>b\\\\ b/a & \text{ if } b>a\end{cases} https://www.cyberforum.ru/ turbo-pascal/ thread1271874.html	Turbo Pascal Найти сумму элементов массива Найти сумму и число тех элементов заданного массива X1, X2 , ..., Xn каждый из которых , во-первых , больше элемента с тем же номером из другого заданного массива Y1,Y2,...Yn, а во-вторых ,...
Turbo Pascal Определить наименьшую из разностей https://www.cyberforum.ru/ turbo-pascal/ thread1271801.html Добрый день, нужна программа и блок-схема.. Заранее очень вам благодарен! Определить наименьшую из разностей \|Ai\|-\|An-i+1\| n чётное (n-i-1) - индекс	Turbo Pascal Определить число произведений https://www.cyberforum.ru/ turbo-pascal/ thread1271799.html Здравствуйте, нужна помощь с задачей, а именно блок-схема и сама программа.. Заранее благодарен :) При заданной величине А и заданных элементах Х1,Х2,...,Хn, Y1,Y2,...,Yn определить число...
Turbo Pascal Определить сумму элементов массива и минимальный элемент Дан масив А(10) опредилить сумму елементов и минимальный елемент	Turbo Pascal Ошибка '(' expected but THEN found https://www.cyberforum.ru/ turbo-pascal/ thread1271767.html Процедура ввода, на этапе проверки принадлежности числа к множеству (if) выдается данная в заголовке ошибка. Пробовал брать выражение в if-е в скобки, результата ноль, просто начинает ругаться не на...

Joy

2385 / 1297 / 1492

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

Сообщений: 4,661

09.10.2014, 16:49

Дан массив В(10).Найти произведение элементов, не кратных трем - Turbo Pascal - Ответ 6700079

09.10.2014, 16:49. Показов 2920. Ответов 1

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

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

Решение

Pascal

var
  b:array[1..10] of integer;
  p:real;
  i:integer;
begin
  p:=1.0;randomize;
  for i:=1 to 10 do begin
    b[i]:=random(100)+1;
    if b[i] mod 3 <>0 then p:=p*b[i];
    write(b[i]:4);
  end;
  writeln;
  writeln(p:10:2);
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

09.10.2014, 16:49

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

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

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

В массиве найти произведение кратных трем элементов.
В заданном массиве (1..75) найти произведение кратных трех элементов.

Найти произведение элементов массива, кратных трем
Имеется массив А из N произвольных чисел A (N) среди которых есть положительные, отрицательные и...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

09.10.2014, 16:49

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

Найти произведение элементов массива, кратных трем
В заданном одномерном массиве, состоящем из n целых чисел. Найти произведение элементов 3.

Найти произведение элементов массива, кратных трем
Нужна помощь... завтра экзамен, очень нужно сделать 3 программы 1) Имеется массив А из N...

Найти сумму элементов массива, кратных трем, и произведение элементов с нечетными индексами
Дан массив Ненулевых целых чисел. Найти СУММУ элементов массива, кратных ТРЕМ, и произведение с...

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

Наверх