Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Из 2 чисел a и b выбрать наибольшее. надо написать программу в паскале.

Ответ оставил Гость

Program Max;

Uses Crt;

var a,b,max:real;

begin

      clrscr;

      write(Введите число а:);

      readln(a);       

      write(Введите число b:);

      readln(b); 

 if (a=b) then writeln(Числа одинаковы)

            else begin 

                              max:=a;  

                             if (b>a) then max:=b; 

                              writeln(Наибольшее число:,max);

                      end;        

      readkey; 

end.