Информатика | 10 - 11 классы
Найти сумму(S) и произведение (P) всех чисел от 1 до 100 кратных 3.
Найти произведение чисел кратных 5 в диапазоне от 1 до 20?
Найти произведение чисел кратных 5 в диапазоне от 1 до 20.
Найти Сумму Чисел Кратных 3 для ряда 1?
Найти Сумму Чисел Кратных 3 для ряда 1.
N - задача 1
Найти произведение чисел, оканчивающихся на 5 - 2 задача.
Найти произведение чисел от k до n не кратных 3?
Найти произведение чисел от k до n не кратных 3.
Составить программы 1?
Составить программы 1.
Найти сумму всех 3х значных чисел кратных 17.
2. найти произведение всех чисел меньше 16.
Помогите срочно?
Помогите срочно!
Цикл while.
Для n - чисел, < ; = 100 найти произведение тех чисел которые кратны 3.
Найти произведения двух значных чисел кратных 3?
Найти произведения двух значных чисел кратных 3?
Даны 20 чисел от 1 до 20?
Даны 20 чисел от 1 до 20.
Найти произведение чисел кратных 5 и 10 одновременно.
Дан ряд чисел от 11 до 200?
Дан ряд чисел от 11 до 200.
Найти произведение чисел , кратных 7, из этого ряда (через pascal).
Дан массив натуральных чисел, заполненный случайными числами?
Дан массив натуральных чисел, заполненный случайными числами.
Найти произведение элементов кратных 3.
Даны числа от 1 до n?
Даны числа от 1 до n.
Найти произведение чисел кратных 3 и оканчивающихся на 1.
На этой странице находится ответ на вопрос Найти сумму(S) и произведение (P) всех чисел от 1 до 100 кратных 3?, из категории Информатика, соответствующий программе для 10 - 11 классов. Чтобы посмотреть другие ответы воспользуйтесь «умным поиском»: с помощью ключевых слов подберите похожие вопросы и ответы в категории Информатика. Ответ, полностью соответствующий критериям вашего поиска, можно найти с помощью простого интерфейса: нажмите кнопку вверху страницы и сформулируйте вопрос иначе. Обратите внимание на варианты ответов других пользователей, которые можно не только просмотреть, но и прокомментировать.
Program asd ;
USES crt ;
Const n = 5 ;
var A : array[1.
N] of integer ;
var p, s : real ; i : integer ;
BEGIN
Clrscr ;
For i : = 1 to n do
begin
A[i] : = Random(100) + 1 ;
Write(A[i] : 4) ;
end ;
P : = 1 ;
For i : = 1 to n do
begin
If A[i] mod 3 = 0 then
begin
S : = S + A[i] ;
P : = P * A[i] ;
end ;
end ;
Writeln ; Writeln('Сумма матрицы : ', s, ' Произведение матрицы : ', p) ;
END.