1const n = 100; var a: array[1..n] of word; i, m: byte; sum: word; begin write('kol-vo chisel: '); readln(m); sum: =0; for i: =1 to m do begin a[i] : = i; write(a[i]: 4); sum: =sum + sqr(a[i])*a[i]; end; writeln; writeln('sum = ', sum: 4); readln; end. 2 constn = 100; vara: array[1..n] of word; i, dn: byte; km: real; beginwrite('kol-vo dney: '); readln(dn); km: =7; for i: =2 to dn do km: =km+(km+1.5); writeln; writeln('turisty proshli ', km: 4: 1, ' km'); readln; end.
ирина Альбертовна
19.03.2020
Оптические (лазерные) диски в настоящее время являются наиболее популярными носителями информации. в них используется оптический принцип записи и считывания информации с лазерного луча. информация на лазерном диске записывается на одну спиралевидную дорожку, начинающуюся от центра диска и содержащую чередующиеся участки впадин и выступов с различной отражающей способностью. сходства: -одинаковые размеры, тот же радужный вид, принцип чтения и записи тоже аналогичный. а различие в cd используется инфракрасный луч, а в dvd применяется красный лазер.