Решите пожалуйста 7 и 8

Решите пожалуйста 7 и 8

Задать свой вопрос
1 ответ
1)
var b:integer;a:boolean;
begin 
a:=true;
if (a) then
b:=4
else
b:=-4;
writeln(b);
end.
2)
var x,y:real;
begin 
write('Введите х: ');
readln(x);
if (xgt;7)then
y:=x-3
else if (xlt;-5) then 
y:=4*sqr(x)
else
y:=5;
write('y = ');
write(y);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт