Первое задание
VARx, y : real;
BEGIN
readln(x);
if x <= -1 then y:= -1/(x*x*x)else if x <= 2 then y:= x*x else y:=-4;
writeln(y:0:8)
END.
дальше еще скину
Решение находиться во вложении
О том, какими возможностями обладают вычислительные машины.
Как быстро они могут считывать информацию, обрабатывать, в сотни раз быстрее человека.
Единственное о чем следуют помнить - компьютер выполнят команды, задаваемые человеком. Соответственно именно поэтому они и не смогут "Захватить мир", как об этом рассказывают в фильмах ;)
Program ryazantsev;
var str1, str2: string;
begin
readln(str1);
readln(str2);
if Pos('a', str1)=0 then writeln(str1);
if Pos('a', str2)=0 then writeln(str2);
end.