Найти сумму всех чисел ,кратных 6 и произведение остальных чисел на промежутке от 34 до100
Найти сумму всех чисел ,кратных 6 и произведение остальных чисел на промежутке от 34 до100
Гость
Ответ(ы) на вопрос:
Гостьvar
i, s: integer;
p: real;
begin
s := 0;
p := 1;
for i := 34 to 100 do
if i mod 6 = 0 then
s := s + i
else p := p * i;
writeln('Сумма чисел кратных 6:', s);
writeln('Произведение чисел не кратных 6:', p)
end.
Не нашли ответ?
Похожие вопросы