Var i: integer; begin for i: =10 downto 0 do write(i,' '); end.
Спасибо
Ответ дал: Гость
1.
var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
решить на паскале?
Ответ дал: Гость
основной текст в египте писали чёрной краской ,чтобы выделить начало строки или фразы писали красным .(но выделяли редко -писчий материал был дорогим).
Популярные вопросы