помогите решить задачки

Помогите решить задачи

Задать свой вопрос
1 ответ
1) 
var 
a:integer;
begin 
readln(a); 
if alt;0 
then a:=a+100 
else a:=a-50; 
writeln(a);
end.
2) 
var  a,b:integer;
begin 
readln(a,b); 
if a*blt;0 
then a:=-2*a 
else a:=a*3; 
writeln(a);
end.
3) 
var  a,b:integer;
begin 
readln(a,b); 
if agt;b 
then a:=a-b 
else a:=b-a; 
writeln(a);
end.
4) 
var  a:real;
begin 
readln(a); 
if alt;=8 
then a:=a*5 
else a:=a/4; 
writeln(a:0:2);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт