(( составьте программу штриховки квадратного поля(фото). graphabc

на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право

1)52: 2=26(чел) любят пирож

2)26-20=6(чел) любят морож

ответ 6 чел

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.

1280*800*24/19800 секунд