Ошибка:Операция '>' не применима к типам boolean и integer
-> два мальчика
<- один мальчик
-> один взрослый
<- возвращается один мальчик, который остался после первых двух действий
-> два мальчика
<- один мальчик
-> взрослый
<- мальчик, который после 5 и 6 действия
-> два мальчик
Var
x,y:real;
begin
writeln ('Введите координаты точки (x,y)');
readln (x,y);
if (x=0) and (y=0) then writeln ('0')
else if (x=0) or (y=0) then writeln ('1')
else writeln ('2');
end.
Молекулы ДНК несут информацию, нервные окончания несут информацию в мозг, летучая мышь, когда посылает ультразвуковые сигналы,а они,отражаясь от поверхности, возвращаются обратно и несут информацию об объекте.