program absolutevar;uses crt;var liczba : real;begin clrscr; writeln('program liczy wartosc bezwzgledna'); write('podaj liczbe : '); readln(liczba); liczba:=abs(liczba); writeln; writeln('wartosc bezwglzedna z twojej liczby to : ',liczba:6:2); readkey;end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
program absolutevar;
uses crt;
var liczba : real;
begin
clrscr;
writeln('program liczy wartosc bezwzgledna');
write('podaj liczbe : ');
readln(liczba);
liczba:=abs(liczba);
writeln;
writeln('wartosc bezwglzedna z twojej liczby to : ',liczba:6:2);
readkey;
end.