Расчетные задачи Опции

[vicsem]

Всем привет.

Может кто поможет решить несколько задачек?
Племянница поступила учиться, задали самостоятельную работу
по школьшой программе. А так как в школе паскаль не изучали,
то возникли трудности.

Может есть добрые люди, у которых есть свободное время?
Если желающие найдутся, задачки вышлю по e-mail

[volvo]

vicsem
задача, очень похожая на №543, нужно только немножко доработать

№ 335

Код

Var
 i, k: Integer;
 s: Real;
begin
 s := 0;
 readln(k);
 for i := 1 To k do
   s := s + (Exp(i*Ln(i)));
 Writeln('sum = ', s:6:0);
end.

Сообщение отредактировано: volvo - 26.11.2004 13:01