математические функции, как найти x в степени y/x и куб. корень из y/x? Опции

[MiH@N]

вообщем пример такой:
а мя как всегда не вовремя перемкнуло(решение не лезет в голову хотя проблема пустяковая )

[MiH@N]

сори что тута но не могу создать новую тему;условие задачи такое:определить сумму чисел от 3 до 99 кратных 3.подскажите где ошибка:

var
a : integer;
b,s : real;
begin
s:=0; a:=3;
while a<=99 do
begin
b:=(a)mod(3) ;
If b=1 then s:=s+a;
a:=a+1;
end;
writeln(s);
readln;
end.

(Р.S.выводит результат 1616)

Сообщение отредактировано: MiH@N - 26.01.2008 16:51