Составьте таблицы истины AvA&B
A&(AvB)
A&BvĀ&B
(AvB)&(ĀvB)
B&(AvBvC)

обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.

var

  a,b: longint;

begin

  readln(a,b);

  while a> 0 do

  begin

    if a mod 10=b then

  begin

    writeln('est');

    halt;

  end;

  a: =a div 10;

end;

writeln('net');

end.

var

a: array [1..20] of integer;

i,max: integer;

begin

max: =0;

for i: =1 to 20 do

begin

if i mod 2=0 then a[i]: =random(50)+50

else  a[i]: =random(50)+150;

if a[i]> max then max: =a[i];

write(a[i]: 4);

end;

writeln;

writeln('max=',max);

end.

1)сила всех и глубина вростания репки, так же состояние здоровья каждого и состояние почвы

а так же не завалялась ли где нормальная лопата

2)смотря что такое по братски, но зная карлсона, он возьмет себе большой

3)главное чтоб пончику хватило. а больше он все равно сделать не в состоянии

4) радиус двери, радиус вини, прирост от сгущенки, прирост от меда, кол-во того и другого, скорость похудения и тп