předchozí návrat do menu uložit zdrojový kód následující

Cvičení 4

Nejprve napište program, který určí větší ze dvou zadaných čísel (celých) a vypíše ho. Pak ho upravte tak, aby rozpoznal i případ, kdy si jsou čísla rovna.
program ukol4;

var a,b:integer;

begin

     write('Zadejte prvni cislo: ');
     readln(a);

     write('Zadejte druhe cislo: ');
     readln(b);

     writeln;
     writeln('----------------------');
     writeln;

     if a>b then writeln('Vetsi je prvni cislo: ',a)
     else if a=b then writeln('Cisla jsou si rovna')
      else writeln('Vetsi je druhe cislo: ',b);
end.

Zpět na: Lekce 3


předchozí návrat do menu uložit zdrojový kód následující
Klíčová slova v Pascal