Напишите программку в Pascal ABC, пожалуйста

Напишите программку в Pascal ABC, пожалуйста

Задать свой вопрос
Лидия Хазанова
Вы тогда еще указывайте, где его брать.
Евгения Миликовская
Так как с 2007 года разработчики его не поддерживают.
1 ответ

var z,x: integer; y: real;

begin

readln(z,x);

if (xgt;=3) then y:=sqr(z) else

if ((zgt;0) and (xgt;0)) then y:=sqrt(sqr(z)) else

if (xlt;0) then y:=z;

writeln(y);

end.

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


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

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

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

Войти на сайт