Ну скорее всего 77 так как мальчики должны были всех поздравить и было 77 пожатей
Var
C:char;
Begin
For C:='0' to '9' do
if Ord(C) mod 3 = 0 then
WriteLn(C)
End.
Ответ только на первую задачу.
крестик в таблице это не подходящая фамилия.
Ответ:
if((x => 8 && x<=1) || (y => 8 && y<=1) )
Объяснение: