Question

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

Answer 1

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