Sunday
Новичок
|
      
Здраствуйте, не получается составить синтаксис программы
Не хочет программа работать, подскажите пожалуйста грамотный код
|
Всего сообщений: 2 | Присоединился: декабрь 2010 | Отправлено: 9 дек. 2010 22:30 | IP
|
|
paradise 
Долгожитель
|
var
k, m, x: integer;
sum: real;
begin
read(k);
read(x);
sum:=0;
for m:=1 to k do
begin
sum:=sum + (exp(m)+ln(x))/(m*power(x,3));
writeln(sum:3:3);
end;
end.
|
Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 10 дек. 2010 0:05 | IP
|
|
Sunday
Новичок
|
Спасибо! Но оказалось, что я правильно писал - просто работал в 64 битной семерке в free paskal IDE. В простом паскале все почему то заработало )
|
Всего сообщений: 2 | Присоединился: декабрь 2010 | Отправлено: 10 дек. 2010 19:06 | IP
|
|
|
Форум
Составить циклическую программу в pascal
