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

Найти произведение 5 нечетных чисел в интервале от (10 до 20). ПОДРОБНО РАСПИСАТЬ

  1. Ответ
    Ответ дан Gleb1Kosyrev
    var k,i,m:integer;
    begin;
    k:=1;
    {наша переменная-результат, делаем так, чтобы нормально работало умножение}
    for i:=10 to 20 do //в цикле рассматриваем промежуток от 10 до 20
    if i mod 2<>0 then //если число не делится на 2 нацело, нечётное
    begin;
    k:=k*i; //умножаем на это число
    m:=m+1; //переменная счётчик
    if m=5 then break;
     {когда переменная счётчик достигла 5 (условие выполнено 5 раз) - выйти из цикла}
    end;
    writeln(k);
    end.
Самые новые вопросы