Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа. free pascal

Var   a, s,d,ed, ost: integer; begin a: =99; repeat    a: =a+1;   s: = a div 100;   ost: = a mod 100;   if ost> 9 then    begin       d: = ost  div 10  ;     ost: =ost mod 10;     end  else  d: = 0;   if ost< 10 then ed: =ost;   until (a< 1000) and (a*a=((s+d+ed)*(s+d+ed)*(s+d+;     writeln('это число: ',a: 3); end.

Так как в корзине 4 груши и 12 яблок, то вероятность достать грушу составляет 4/16 = 1/4 (для яблока 12/16 = 3/4). если существует n равновероятных событий, то вероятность каждого отдельного события равна p=1/n. применяя формулу:   2 в степени i  = n = 1/p получаем i = 2 бита.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.