Var
a,b,c,n: real;
begin
writeln ('введи три числа');
readln(a,b,c);
n:=0;
if a<0 then n:=n+1;
if b<0 then n:=n+1;
if c<0 then n:=n+1;
if n>0 then writeln ('среди трех чисел ', n, ' отрицательных')
else
if n=0 then writeln ('среди трех чисел нет отрицательных');
end.
<span>3 Сортировка величин х, у и z по возрастанию</span>
Оооо, современные роботы умеют делать многое.
Есть роботы-игрушки, выполненные в виде различных животных, умеющие выполнять команды: "сидеть", "лежать" и другие, а также издавать звуки животных.
Роботы - транспорт, радиоуправляемые-игрушки, роботы, которые могут управлять транспортом в реальном времени.
Роботы-работники, именно они работают на любых промышленных предприятиях, помогают человеку там, где человеку опасно находиться, т.е. делают самую сложную работу.