Question

prosze na dzis wazne .napisz w jezyku pascala kod programu ktory znajdzie najwieksza z trzech podanych liczb przez urzytkownika i wypisze je na ekranie

Answer 1

3maj:

 

USES CRT;
VAR a,b,c,max1:INTEGER;
BEGIN
CLRSCR;
WRITELN('Podaj 3 liczby:');
READLN(a);
READLN(b);
READLN(c);
IF a>b THEN max1:=a ELSE max1:=b;
IF max1>c THEN WRITE('Najwieksza liczba to:',max1) ELSE WRITE('Najwieksza liczba to:',c);
READKEY;
END.

 

LUB

 

USES CRT;
VAR a,b,c,max1:INTEGER;
BEGIN
CLRSCR;
WRITELN('Podaj 3 liczby:');
READLN(a);
READLN(b);
READLN(c);
CLRSCR;
WRITELN('================================================');
WRITELN('Wybrales nastepujace liczby:');
WRITELN(a);
WRITELN(b);
WRITELN(c);
WRITELN('================================================');
IF a>b THEN max1:=a ELSE max1:=b;
IF max1>c THEN WRITE('Najwieksza z nich to liczba:',max1) ELSE WRITE('Najwieksza z nich to liczba:',c);
READKEY;
END.