Отдаю последние баллы!даны действительные числа A и B . Если числа

Отдаю заключительные баллы!
даны действительные числа A и B . Если числа не одинаковы, то большее увеличить в пять раз, а наименьшее уменьшить на 5, в неприятном случае, если они положительные, то оставить их без конфигурации, если отрицательные , то возвести в квадрат

Задать свой вопрос
Стефания
заключительные 10 из мало возможных 10? :)
Андрюха Мурко
Сколько было :(
Валек Козинец
на PHP либо javascript пойдет?
Валерий Куренин
Нет :( Нужна паскалька
Вадим Джемисюк
на паскале напишу, но не проверю...
Камилла Гололюбова
негде
Толян Чехлань
Напиши, буду признателен очень :)
1 ответ
BEGIN
writeln('Enter A number');
realdln(A);
writeln('Enter B number');
readln(B);
if (Alt;gt;B) then
begin
A:=A*5;
B:=B-5;
end else
begin
if ((Alt;0) and (Blt;0))
begin
A:=A*A;
B:=B*B
end;
end;
writeln(A, B);
END.
Кристина
Благодарствую
Галина Пичарина
2 ; пропустил
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт