Ребят, помогите с информатикой! задача: Ввести три числа А В и С. Отрицательные числа заменить их абсолютными значениями. Желательно ассемблер
Ребят, помогите с информатикой!
задача:
Ввести три числа А В и С. Отрицательные числа заменить их абсолютными значениями.
Желательно ассемблер
Гость
Ответ(ы) на вопрос:
ГостьЕсли нужно что-то исправить, говорите.
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.
Гость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.
Не нашли ответ?
Похожие вопросы