Найти произведение всех целых чисел из промежутка от 3 до 33 кратных 3 - Pascal ABC

  1. Помогите пожалуйста Найти произведение всех целых чисел из промежутка от 3 до 33 кратных 3


textual

Код к задаче: «Найти произведение всех целых чисел из промежутка от 3 до 33 кратных 3 - Pascal ABC»

var  i,p:integer;
begin
p:=1;
for i:=3 to 33 do
if i mod 3=0 then p:=p*i;
write('p=',p);
end.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.000 из 5



Похожие ответы
  1. Решите пожалуйста задачу на строки. Если можно можете еще объяснить что сделали. Вывести все буквы которые есть во всех словах. К примеру вводим слова: папа, мама Выводить должен: п,а,м

  1. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.

  1. нужно найти количество всех элементов в нечетных по номеру строках матрицы, сделал что бы оно выводило матрицу и нечетные строки, а количество значений что то не могу. был бы рад помощи.

  1. Ввести N различных чисел. Найти среднее арифметическое всех чисел. Составить две программы: с использование While и Repeat.

  1. Найти произведение элементов матрицы, находящихся ниже главной диагонали. Имя массива-R. Размер массива: 4,4. Тип данных - действительный. Заполнена матрица должна быть рандомно (randomize) числами от 0 до 50.

  1. Всем привет! Какой алгоритм решения задания: "Дана матрица А(m, n), 1<(m, n)<10. Определить сумму всех элементов матрицы. Переставить строки по возрастанию количества положительных элементов в строках." ? Я вообще не могу что-то вдуплить, как и каким образом. Заранее спасибо)

  1. Дан одномерный массив А, состоящий из N целых чисел. Найти сумму всех четных элементов массива А, имеющих четные индексы. Массив заполнить случайными числами из диапазона 1 до 10.

  1. В двумерном массиве вычислить произведение элементов в К-столбце

  1. Найти произведение вычисленных значений функции,целая часть которых кратна 2 y=9e^-0,5x * Cos^2 (PIx-45 градусов) .Помогите пожалуйста

  1. Дано натуральное число: -найти произведение цифр числа; -верно ли,что в данном числе нет данной цифры А(А вводится с клавиатуры)