Question

Найти сумму(S) и произведение (P) всех чисел от 1 до 100 кратных 3

Answer 1

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.

Answer 2

Для решения этой задачи можно использовать цикл, чтобы перебрать все числа от 1 до 100 и проверить, кратны ли они трём. Если число кратно 3, мы добавляем его к сумме и умножаем его на произведение. Вот пример реализации на языке Python:

pythonCopy code
S = 0  # Сумма
P = 1  # Произведение

for i in range(1, 101):
    if i % 3 == 0:
        S += i
        P *= i

print("Сумма:", S)
print("Произведение:", P)

Результат выполнения программы:

makefileCopy code
Сумма: 1683
Произведение: 193491763200

Таким образом, сумма всех чисел от 1 до 100, кратных 3, равна 1683, а произведение этих чисел равно 193491763200.