Проверка делимости

[Kazik]

Помогите плиз ребята...срочно нужно лабу сдавать...а сам дуб-дубом

Даны натуральные числа n, b0, ...,bn. Вычислить f(b0)+f(b1)+...+f(bn),где (вложение)

[Sciv]

sum:=0;
for i:=0 to n do begin
  case (b[i] mod 3) of
    1: f:=b[i];
    0: f:=b[i]*b[i];
  else f:=b[i] div 3;
  end;
  sum:=sum+f;
end;

[Serge_Bliznykov]

function f(X: integer) : integer;
begin
  if ( X mod 3 = 0 ) {кратно 3-м} then f := sqr(x)
  else
    if (x mod 3 = 1) {при делении на три остаток равен 1} 
         then f := x
    else {во всех остальных случаях}
         f := x div 3; {целая часть от деления числа на 3}
end;

прикрутить цикл от 0 до n и проссумировать результаты, надеюсь, самостоятельно сумеете?

[Sciv]

Ай-яй, точно! Это ж целая часть была, а я ее за опечатку принял!
Пойду и свой код исправлю

UPDATE Исправляя, сообразил, что целочисленные операции к вещественным неприменимы... тоже забыл.
Сергей, хотел Вам плюсик поставить за напоминание основ математики, да злобный форумный скрипт не дал

[Mad_Cat]

все таки else должно быть в case имхо

sum:=0;
for i:=0 to n do begin
 x:=b[i]; 
case (x mod 3) of
    1: f:=x;
    0: f:=x*x;
    else f:=x div 3;
end
    sum:=sum+f;
end;

[Sciv]

и вместо i должен быть х

да не, вместо x Должен быть b[i]... так что либо x:=b[i], либо x[i]... В остальном Вы правы, я свою писанину подправил

OFFTOP. А чего я Вам плюсик не могу поставить?