Моя четвертая программа
Моя четвертая программа написана на языке Pascal. В среде разработки PascalABC.Net.
Программа читает два числа которое ты вводишь, потом большее число умножает на 2, а меньшее умножает на -1.
Программа читает два числа которое ты вводишь, потом большее число умножает на 2, а меньшее умножает на -1.
Program RP4;
Var A,B:real;
Begin
Write ('Введите два числа!');
Read (A,B);
If A>B THEN A:=A*2
ELSE A:=A*(-1);
If A<B THEN B:=B*2
ELSE B:=B*(-1);
Write ('Результат:', A, ' и ', B);
End.
Комментариев 1 451