Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Найти сумму всех чисел ,кратных 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.