//PacsalABC.Net
// (c) NaaMan
var
s : integer;
begin
write('Введите число (10-999): ');
readln(s);
writeln('В числе ', s, ' ', s.ToString.Length, ' знака');
write('Число ', s);
if s mod 3 = 0 then
write(' кратно')
else
write(' не кратно');
writeln(' трём')
end.
Создание сцен и рисунков , потом анимация. Т.к. что ты будешь анимировать если нету нечего?
300 грамм -- 100%
х грамм -- 3%
x=9 грамм - 1 гном
50%(половина) = 150 грамм
150/9=16,7≈17 человек сьедает половину яблока
300-(17*9)=147 грамм вес оставшегося яблока
Тут описано - http://edufuture.biz/index.php?title=Об%27єкти_та_операції_над_ними