Составить программку.Если число положительное то увеличте его в 2 раза ,

Составить программу.Если число положительное то увеличте его в 2 раза , если число отрицательное то уменьшите его в 2 раза

Задать свой вопрос
2 ответа
А что делать с нулём? :D На паскале получится вроде что-то этого:
Program: ...
Var: a; integer;
Begin
readln(a);
begin
If agt;0 then
a:= a*2;
else a:= a:2;
end;
writeln(a);
End.
Program task;
var a:real;
begin
write('Введите число : ');
read(a);
if agt;0 then writeln(a*2)
else writeln(a/2);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт