profile
Опубликовано 6 лет назад по предмету Информатика от проф4

программа для нахождении суммы всех чисел кратных 3 но не кратных 5

  1. Ответ
    Ответ дан Pro100Cool
    // Pascal ABC.NET
    var
        sum : integer;
        i : integer;
       
    begin
        for i := 10 to 99 do
            if (i mod 3 = 0) and (i mod 5 <> 0) then
                sum += i;
        writeln('Summa is ', sum);
    end.

Самые новые вопросы