Ребят, помогите с информатикой! задача: Ввести три числа А В и С. Отрицательные числа...

Question

Ребят, помогите с информатикой!
задача:
Ввести три числа А В и С. Отрицательные числа заменить их абсолютными значениями.
Желательно ассемблер

Comments

Паскаль или Java подойдут?

---

Паскаль должен

Answer 1

Если нужно что-то исправить, говорите.
var
A,B,C:real;
Begin
Write('Введите число A: ');
Read(A);
Write('Введите число B: ');
Read(B);
Write('Введите число C: ');
Read(C);
if A<0 then<br>Begin
A *=-1;
Write('|A| = ' + A)
End;
if B<0 then<br>Begin
B *=-1;
Write('|B| = ' + B)
End;
if C<0 then<br>Begin
C *=-1;
Write('|C| = ' + C)
End;
End.

Answer 2

Var a,b,c;real;
begin
readln(a,b,c);
if a<0 then a:=abs(a);<br>if b<0 then b:=abs(b);<br>if c<0 then c:=abs(c);<br>writeln(a,b,c);
end.