Найти произведение 5 нечетных чисел в интервале от (10 до 20). подробно расписать

229

241

Посмотреть ответы 2

Ответы на вопрос:

orehskonastia

Информатика

4,5(83 оценок)

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.