Question

Napisz program w pascalu który:
Porówna dwie liczby rzeczywiste i wyświetli większą z nich.

Answer 1

Program liczby;
var
a,b:real;
begin
write('podaj dwie liczby');
read(a,b);
readln;
if a>b then write ('liczba wieksza jest ',a)
else write ('liczba wieksza ',b);
readln
end.

Answer 2

Program kat;
uses CRT;
var
a,b: integer;
begin
Clrscr;
Writeln('Podaj 1wsza liczbe');
Readln(a);
Writeln('Podaj 2ga liczbe');
Readln(b);
if a > b then Writeln('Liczba ',a,' jest wieksza od ',b) else
if a < b then Writeln('Liczba ',b,' jest wieksza od ',a);
readln;
end.