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

Question

Информатика

Лекся

25 апреля, 03:00

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

+2

Ответы (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.