СРОЧНО, помогите пж! 20б.

Безотлагательно, помогите пж! 20б.

Задать свой вопрос
1 ответ
1)
var 
 x:integer;
begin
writeln('x=');read(x);
if xgt;-1 then writeln('y=',x*x*x) else writeln('y=',-1/(x*x));
end.

2)
var 
 a,b:integer;
begin
write('a=');read(a);
write('b=');read(b);
if Odd(a-b) then Writeln(2*a*b)else Writeln(sqr(a+b));
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт