Информатика 8 класс, паскаль

 Program P1; 

uses crt; 

var a, b, c, min, max, o: real; 

begin 

writeln ('Введите с клавиатуры 3 числа (по 1). После ввода каждого из чисел нажимайте клавишу Enter. При вводе дробных значенйи целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите 1-ое число: '); 

readln (a); 

min:=a; 

max:=a; 

write ('Введите 2-ое число: '); 

readln (b); 

if bmax then max:=b; 

write ('Введите 3-е число: '); 

readln (c); 

if cmax then max:=c; 

if (a=b) and (b=c) then writeln ('Введенные числа равны.') else begin 

   writeln ('Для вывода максимального из чисел введите с клавиатуры цифру "1"; Для вывода минимального из чисел - введите цифру "2": '); 

   readln (o); 

   if o=1 then writeln (max :0:2) else 

   if o=2 then writeln (min :0:2) else writeln ('Ошибка: некорректный ввод.'); 

   end; 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

 program compare_numbers; 

 

var 

  num1, num2, num3, max, min: integer; { объявляем переменные } 

 

begin 

  write('Введите первое число: '); 

  readln(num1); { считываем первое число } 

   

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

  readln(num2); { считываем второе число } 

   

  write('Введите третье число: '); 

  readln(num3); { считываем третье число } 

   

  write('Введите 1, чтобы найти максимальное число, или 2, чтобы найти минимальное число: '); 

  var choice: integer; { объявляем переменную для выбора пользователя } 

  readln(choice); { считываем выбор пользователя } 

   

  { находим максимальное и минимальное число } 

  max := num1; 

  if num2 > max then 

    max := num2; 

  if num3 > max then 

    max := num3; 

     

  min := num1; 

  if num2 < min then 

    min := num2; 

  if num3 < min then 

    min := num3; 

   

  { выводим на экран результат в зависимости от выбора пользователя } 

  if choice = 1 then 

    writeln('Максимальное число: ', max) 

  else if choice = 2 then 

    writeln('Минимальное число: ', min) 

  else 

    writeln('Ошибка: неверный выбор'); 

   

end. 

 

 program CompareNumbers; 

 

var 

  a, b, c, max, min: integer; 

  choice: char; 

 

begin 

  writeln('Введите три числа:'); 

  readln(a, b, c); 

   

  writeln('Выберите операцию:'); 

  writeln('> Для вывода на экран наибольшего числа нажмите "M"'); 

  writeln('> Для вывода на экран наименьшего числа нажмите "m"'); 

  readln(choice); 

   

  if (choice = 'M') or (choice = 'm') then 

  begin 

    max := a; 

    min := a; 

     

    if b > max then 

      max := b; 

    if c > max then 

      max := c; 

       

    if b < min then 

      min := b; 

    if c < min then 

      min := c; 

       

    if choice = 'M' then 

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

    else 

      writeln('Наименьшее число: ', min); 

  end 

  else 

    writeln('Неверный выбор операции'); 

   

  readln; 

end.