Значение Mod, помогите разобраться Опции

[Вацура]

Задачка:
Вычислить дробную часть среднего арифметического трех заданных вещественных чисел.
Я делал так:

uses crt;
var a,b,c,p:integer;
begin clrscr;
write('‚ўҐ¤ЁвҐ 3 зЁб« :'); readln(a,b,c);
p:=(a+b+c) mod 3;
Writeln;
Writeln('„а®Ў­  з бвм б।­ҐЈ®  аЁд¬ҐвЁзҐбЄ®Ј® 3 зЁбҐ« а ў­ : ',p);
readln;
end.

В учебнике написано, что mod это остаток от деления с остатком. Тоесть, как я понял,
11 mod 3 должно равняться 6666... .
Но когда ввожу значения (4,3,4), ответ получаеться 2.
В чем дело? Я не так понял?

[volvo]

mod это остаток от деления с остатком

Это остаток от деления нацело...

Т.е. 11 div 3 = 3 (целых), а теперь этот результат снова умножь на 3... И какая разница между первоначальным числом и полученным произведением?

[Вацура]

Разница получаеться 2, спасибо.
С mod`ом чуток разобрался.

Получилось так, вроде правильно:

uses crt;
var a,b,c,p:integer;
begin clrscr;
write('‚ўҐ¤ЁвҐ 3 зЁб« :'); readln(a,b,c);
p:=(a+b+c) mod 3;
Writeln;
Writeln('„а®Ў­  з бвм б।­ҐЈ® ЈҐ®¬ҐваЁзҐбЄ®Ј® 3 зЁбҐ« а ў­ : ',p/3:3:3);
readln;
end.

А как можно сделать чтобы ответ был в виде дроби(1/3;2/3)?

[volvo]

WriteLn(p, '/3');

[Bokul]

А как можно сделать чтобы ответ был в виде дроби(1/3;2/3)?

WriteLn(p, '/3');

Я добавил бы еще проверку:

uses crt;
var a,b,c,p:integer;
begin
clrscr;
write('Enter a,b,c: ');
readln(a,b,c);
p:=(a+b+c) mod 3;
Writeln;
if p=0 then
   writeln('Result: ',p)
else
   writeln('Result: ',p, '/3');
readln;
end.

[Вацура]

Спасибо за помошь!

[Pola]

Задачка:
Вычислить дробную часть среднего арифметического трех заданных вещественных чисел.

var a,b,c:real;
...

p:=frac((a+b+c)/3)

[гость]

mod выдает остаток т.е 11/3=3 целых т.е 9 а 11-9=2 из этого следует что это правильно!

[Krjuger]

Перед тем как писать вы бы посмотрели на дату,я думаю в 2011 году уже не актуально отвечать на вопрос 2006 года.