1составьте программу ,вычисляющую сумму кубов первых n натуральных чисел 2туристы в 1-ый день прошли 7км.в каждый следующий день они проходили на 1.5 км > .составь программу ,вычисляющую сколько километров они пройдут за n дней. ,

265

466

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

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

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.