Question

Составить программу вычесления модуля разности |a-b|=z

Answer 1

Var a, b, ztemp, z : real; Begin Write('Введите а: '); Readln(a); Write('Введите b: '); Readln(b); ztemp := a - b; Z := abs(ztemp); Write('z = ', z); End.

Answer 2

спс братишь

Answer 3

Не за что! З.Ы: на будущее - пиши сразу язык.

Answer 4

ок