Var factorial: longint; n, i: byte; begin write('n = '); readln(n); factorial : = 1; for i: =2 to n do factorial : = factorial * i; writeln('n! = ', factorial); readln; end.
Спасибо
Ответ дал: Гость
vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.
Ответ дал: Гость
папирусы хранили в виде свитков, которые сворачивали в длинную папирусную ленту. эту ленту склеивали из отдельных листов и заворачивали в трубку. именно в таких свитках дошли до нас древние тексты, хотя сохранились они хуже, чем письмена на глиняных табличках.
Популярные вопросы