1.берём чашку. 2.ставим на стол 3.берём чайник 4.наливаем в него воду 6. ставим её греть 7.выключаем чайник после подогрева 8 достаём чай 9 ложим пакетик чая в чашку 10 заливаем водой 11.по желанию можно добавить сахар 12когда чай достаточно заварился,вытяни покетик с чаем 13. и выкинь его в мусорку
Спасибо
Ответ дал: Гость
1.
var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
решить на паскале?
Ответ дал: Гость
var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('в этом слове нет этого символа') else begin i: =0; while pos(symb,s)< > 0 do begin write(pos(symb,s)+i,' '); i: =i+1; delete(s,pos(symb,s),1); end; end; writeln; writeln(i); end.
Популярные вопросы