1составьте программу ,вычисляющую сумму кубов первых n натуральных чисел2Туристы в 1-ый день прошли 7км.В каждый следующий день они проходили на 1.5 км больше .Составь программу ,вычисляющую сколько километров они пройдут за ...
1составьте программу ,вычисляющую сумму кубов первых n натуральных чисел
2Туристы в 1-ый день прошли 7км.В каждый следующий день они проходили на 1.5 км > .Составь программу ,вычисляющую сколько километров они пройдут за n дней.
Помогите срочно ,пожалуйста )))
Гость
Ответ(ы) на вопрос:
Гость1
const
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
const
n = 100;
var
a: array[1..n] of word;
i, dn: byte;
km: real;
begin
write('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.
Не нашли ответ?
Похожие вопросы