Найти сумму всех чисел, кратных 6 и произведение остальных чисел на промежутке от 34 до100

Question

Информатика

Любовь

27 сентября, 07:53

Найти сумму всех чисел, кратных 6 и произведение остальных чисел на промежутке от 34 до100

+3

Ответы (1)

Знаете ответ на вопрос?

Галька · Answer 1

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.