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

TMTkid TMTkid    3   26.06.2019 10:20    1

Ответы
dashakasha1995 dashakasha1995  21.07.2020 09:28
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика