Сумма чисел! Опции

[Масяня]

пожалуйста помогите решить задачки по информатике!!!!!
1.Вычислить сумму чисел кратных 7, которые меньше 400.
2.Составить программу для вычисления суммы ряда: от1 до n k/x в кубе,х=7.
Заранее всем спасибо, я действительно буду очень благодарна! :D

[volvo]

№1:

Код

var
 i, s: integer;
begin
 i := 0; s := 0;
 repeat
   inc(s, i); inc(i, 7)
 until i > 400;
 writeln('s = ', s)
end.

№2:

Код

const
 n = 10;
 x = 7;
var
 s: real;
 i: integer;
begin
 s := 0;
 for i := 1 to n do
   s := s + exp( 3 * ln(i/x) );
 writeln('s = ', s:10:6)
end.

Сообщение отредактировано: volvo - 14.12.2004 15:56

[Guest]

А можно в 1 задаче заменить чем-нибудь inc???Мы такое не использовали.

[APAL]

s:=s+i;
i:=i+7;

[Мася]

[Это к первой задачке,да?

[volvo]

К первой. Во второй такого нет...