Дано 1 - 10,найти сумму произведения и кол во кратных 3. Должно в ответе получить 18,162,3 помогите пожалуйста.
Какой язык программирования?
паскаль
В диапазоне от 1 до 10 кратные 3 это: 3, 6, 9
3 + 6 + 9 = 18
3 * 6 * 9 = 162
Таких чисел 3, как легко посчитать
а программу можешь сделать?
var i,s,p,k: integer;
begin
p:=1;
for i:=1 to 10 do
if i mod 3 = 0 then
s:=s+i;
p:=p*i;
k:=k+1
end;
writeln ('Сумма кратных 3: ',s);
writeln ('Произведение кратных 3: ',p);
writeln ('Кол-во кратных 3: ',k);
end.