Работая компьютером моя профессия - учитель. я учу детей, и взрослых людей информатике. мои ученики знают бортовые кнопки чтобы включить или выключить меня. знают как отправлять получать сообщение через специальные программы. или ещё только учатся как это делать правильно. в ходе чего сталкиваются с различными трудностями, неполадками, несовместимостями, сбоями, атаками вирусов, перебоями в интернет соединении, тонкостями в работе с клавиатурой и операционной системой, преодалеванием непреодолимого желания отвлечся от своего на игры или ещё что. преодолевая их, мои ученики получают опыт и становятся ближе к своей цели - уже своей профессии.
Спасибо
Ответ дал: Гость
Var m: array[1..15] of real; i: integer; n: real; begin randomize; for i: =1 to 15 do begin m : =random(20)-20; if( m< 0) then begin m: =sqr(m); end;
Ответ дал: Гость
по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'
uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of 1 : write ( 'на дереве сидела ' ,n , ' ворона' ); 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' ); 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' ); end else write ( 'ветка обломилась! ' ); end; readln; end.
Популярные вопросы