Вот держите: var n,i,l,m: integer; sum: real; begin readln(n); sum: =1; l: =1; while m< > n do begin m: =m+2; sum: =/m)*l); l: =l*-1; end; writeln(sum); end.
Спасибо
Ответ дал: Гость
думаю, что 19,5 кб = 0,019 мб.
Ответ дал: Гость
если предположить, что сначала уходили те, кто надел обувь большего размера, то таких будет, как минимум, двое. третий уходящий может надеть свою обувь. поэтому правильным ответом будет (б) 2 человека.
Популярные вопросы