Задали по информатике , а решить уже не помню как . Кто буду очень благодарен!

221

448

Посмотреть ответы 1

Ответы на вопрос:

89994709040

Информатика

4,8(61 оценок)

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.