Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Определить количество мальчиков и девочек https://www.cyberforum.ru/ turbo-pascal/ thread1200735.html Ввести информацию по 10 школьникам (ФИО, пол, год рождения). Определить количество мальчиков и девочек. Вывести список каждых.	Заданный текст с латинских букв, в конце точка Turbo Pascal Заданный текст с латинских букв, в конце точка. Вывести на печать все буквы, входящие в текст один раз.
Turbo Pascal Найти количество гласных в длинном слове. https://www.cyberforum.ru/ turbo-pascal/ thread1200641.html Пожалуйста помогите срочно нужно!!! Заданная последовательность слов, разделенных пробелами. Найти количество гласных в длинном слове.	Turbo Pascal Высота прыжка Изучить, как связана высота прыжка с площадью поперечного сечения парашюта, чтобы скорость приземления была безопасной. https://www.cyberforum.ru/ turbo-pascal/ thread1200640.html
Дан файл F, записать в файл G чётные числа, а в файл H все нечётные числа Turbo Pascal Дан файл F, содержащий целые числа. Записать в файл G все чётные числа из файла F, а в файл H все нечётные числа. Буду благодарен за любую оказанную помощь!	Turbo Pascal Найти, сумму кубов всех отрицательных элементов массива A={a[i]}, что удовлетворяют данному условию https://www.cyberforum.ru/ turbo-pascal/ thread1200589.html ЦЕЛЬ РАБОТЫ. Задав одномерный массив целочисленных данных А в одном из заданных форматов (BYTE, WORD, SHORTINT, INTEGER или LONGINT), реализовать обработку массива, как указано в варианте. Длина...
Turbo Pascal Нарисовать Слона не получается сделать, помогите https://www.cyberforum.ru/ turbo-pascal/ thread1200540.html	Построить блок схему программы Turbo Pascal program lr_8; uses crt; var y,u:integer; res:real; function summ(a,b:integer):real; begin summ:=aa+bln(aa)/sin(b)sin(b); end; procedure resultat; begin
Turbo Pascal Решение уравнения с двумя условиями Всем доброго дня! Сам программист но на другом языке ( AS3 ). Попросили написать программку которая могла бы решить уравнение с 2 мя условиями: 0,5 ≤ x ≤ 2 и y ≤ 20. В теории... https://www.cyberforum.ru/ turbo-pascal/ thread1200460.html	Turbo Pascal Ориентированные графы https://www.cyberforum.ru/ turbo-pascal/ thread1200459.html по матрице смежности нужно построить матрицу инциденций. ввод матрицы смежности есть, не знаю как из нее сделать матрицу инциденций. помогите пожалуйста. :3
Программа паскаль, нужно составить программу! Turbo Pascal Помогите, пожалуйста, очень срочно надо, сдавать уже завтра, нужно написать задачу в паскале по формуле y=x-x3/3+x5/5+x7/7 , первая цифра после x это степени, не знаю просто как тут степень...	Turbo Pascal Построить блок-схему программы https://www.cyberforum.ru/ turbo-pascal/ thread1200433.html program lr3; uses crt; var x: integer; begin clrscr; writeln('BBeDuTe DaTy'); readln(x); case x of 1941: writeln('BoB'); 1648: writeln('CoJI9HHou 6yHT');

Svager

399 / 378 / 408

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

Сообщений: 1,204

06.06.2014, 01:28

Найти произведение элементов массива, кратных трем - Turbo Pascal - Ответ 6280663

06.06.2014, 01:28. Показов 1313. Ответов 3

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

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

Решение

Pascal

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
procedure invect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  x[i]:=-10+random(20);
end;
procedure print(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  write(x[i]:4);
end;
function dop(var x:mas;n:integer):integer;
 var i,d:integer;
begin
d:=1;
 for i:=1 to n do
  if x[i] mod 3=0 then
   d:=d*x[i];
  if d=1 then
   d:=0;
 dop:=d;
end;
var a:mas;
    i,n:integer;
begin
 repeat
  write('Ðàçìåð ìàññèâà n=');
   readln(n);
 until n in [1..nmax];
 writeln('Èñõîäíûé ìàññèâ : ');
  invect(a,n);
  print(a,n);
 writeln;
 writeln('Ïðîèçâåäåíèå êðàòíûõ òðåì = ',dop(a,n));
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.06.2014, 01:28

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

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

Найти сумму кратных трём отрицательных элементов массива. Найти минимальный элемент массива и его индекс
Друзья!!! Помогите написать текст программы в Паскале: № 3. Сформировать массив X(40) из случайных...

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

В массиве из 15 чисел определить произведение элементов кратных трем
в массиве из 15 чисел определить произведение элементов кратных трем

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

06.06.2014, 01:28

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

Найти произведение элементов массива, кратных 3 и 9
1. Используя циклы, создайте Паскаль программу для решения задачи по Вашему варианту. Найти...

Найти произведение четных чисел, кратных трем, из промежутка от (a) до (b)
Найти произведение чисел из промежутка от (a) до (b) для которых выполняется условие : число...

Найти произведение первых k натуральных чисел, кратных трём
решить, используя оператор безусловного перехода и 4 безусловных функции: 1)Break 2)Continue...

Найти произведение чисел, кратных трем вводимых с клавиатуры
Задали три задачи. Две решил, а эта никак не получается:"Найти произведение чисел кратных трем...

Наверх