Pascal - Konsolowe

Porównanie liczb

Porównanie liczb
Pascal - Konsolowe

Program: sprawdzający która z dwóch podanych liczb jest większa.

Użytkownik podaje dwie liczby X i Y. Program następnie wybiera i wypisuje komunikat – która z nich jest większa.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program drugi;
uses crt;
var
   x,y :integer;
begin
clrscr;
 writeln('Program wybiera wieksza liczbe');
 writeln('Podaj liczbe x i y ');
 readln(x,y);
if x=y then
writeln('Liczby sa równe')
else
if x<y then
writeln('Liczba y jest wieksza od liczby x')
else
if x>y then
writeln('Liczba x jest wieksza od liczby y');
readkey;
end.