Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ:не знаю какаето ссылка наверное
Объяснение:
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.
uses crt; var i,s: integer; begin i: =2; s: =1; while i< =10 do begin s: =s*i; i: =i+2; end; write(s); end.
Популярные вопросы