Var y,xn,xk,s:real; begin readln(s,xn,xk);//s-шаг функции xn и xk - интервал иксов, в котором мы рассматриваем функцию writeln('x',' ','y'); while xn<xk do begin while xn<0 do begin y:=0; xn+=s; writeln(xn,' ',y); end; while y<4 do begin y:=power(xn,2); xn+=s; writeln(xn,' ',y); end; while xn<xk do begin y:=4; xn+=s; writeln(xn,' ',y); end; exit; end; end.
Var x,y:real; begin write('x = '); readln(x); if (x<-4)or(x>4) then writeln('Функция не определена') else begin if x<0 then y:=0 else if x<2 then y:=x*x else y:=4; writeln('Y = ',y); end; end.
(23+35) : (94-92) =? Первое действие в скобках. 23+35=58 первые скобки раскрыты. Раскрываем вторые: 94-92=2 Вторые скобки тоже раскрыты. Мы получаем: 58:2=? можно разделить устно. 58:2=29; (23+35):(94-92)=29; 23+35=58 94-92=2 58:2=29