var n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.
Ответ дал: Гость
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.
Ответ дал: Гость
нет,оно вряд ли.ведь что такое компьютер? это арифрометр.не видили никогда такую машинку? компьютер работает тупо.а про разборки (искусственого интелекта) я могу много баек рассказать могу это дело.и в ученые доили.государство,и в сша.
Популярные вопросы