Решите, пожалуйста, 2 задачки ну или хотя бы первую, 50 баллов

Решите, пожалуйста, 2 задачи ну либо желая бы первую, 50 баллов

Задать свой вопрос
1 ответ

1. var  

 a : real;

begin

read(a);

if a gt; 0 then

 a := sqrt(a)

else if a = 0 then

 a := a + 30.45

else  

 a := sqr(a);

writeln(a);

end.

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


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

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

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

Войти на сайт