Question

ПОМОГИТЕ составьте блок-схему и напиши программу вычисления значений функции у=х^3, если х>0 и х=<0

Answer 1

Если x>0
Если x>0

program z1;
var x,y:integer;
begin
writeln('Введите число x');
readln(x);
if x>0 then y:=x*3;
writeln(' y=',y);
end.

Если x=<0

program z2;
var x,y:integer;
begin
writeln('Введите число x');
readln(x);
if x=<0 then y:=x*3;
writeln(' y=',y);
end.
Если хочешь увидеть блок-схему, создавай отдельный вопрос 

Answer 2

жди)