program n1; uses crt; var i,p: integer; beginclrscr; p: =1; for i: =1 to 10 do p: =p*i; writeln(p); readlnend.
Спасибо
Ответ дал: Гость
Var best, m, s,i: integer; begin best : = 10000000; for i: = 1 to 3 do begin write('min sec = '); readln(m, s); if best > m * 60 + s then best : = m * 60 + s; end; writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.
Ответ дал: Гость
значит так кролик это 4 лапы + 1 голова 5(ед) , голубь 2 лапы + 1 голова= 5(ед), размещаем сначало во все клетки по голобю + по кролику получается в каждой клетке уже по 8 (ед) остается 3 кролик и 4 голубя 5 елток тоесть еще по одному кролику и в 2 оставшиеся по 2 голобу получается 3 клетки будет по 1 голубю и 2 кролика и 2 клетки с 1 кроликом и 3 голубями проверяем 1*3+2*5=13 и 5*1+3*3=14 тоесть все верное : )
Популярные вопросы