Найти сумму нечетных чисел от 1 до n. составьте программу в паскаль

196

213

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

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

gerasimooffq

Информатика

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

Program n1; var n,i: integer; sum: real; begin sum: =0; readln(n); for i: =1 to n do if i mod 2< > 0 then sum: =sum+i; writeln(sum); end.

юля2761

Информатика

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

Объяснение:

чтобы оказались хотя бы два чёрных, мы возьмём на два больше, чем существует белых 7+2=9 то есть, даже даже если мы вытянем все белые, то два шара будут гарантированно чёрными, так как белых больше не будет.