profile
Опубликовано 5 лет назад по предмету Информатика от 777mmm

Написать программу и начертить для нахождения минимальное и максимальное среди трёх чисел. Напишите пожалуйста)

  1. Ответ
    Ответ дан student365
    var
      a,b,c,max,min:integer;
    begin
    write('Введите первое число');
    readln(a);
    write('Введите второе число');
    readln(b);
    write('Введите третье число');
    readln(c);
      if a > b then
        max:=a
      else
        max:=b;
      if max > c then
        writeln('Максимальное число = ', max)
      else
        writeln('Максимальное число = ', c);
        if a > b then
        min:=b
        else
        min:=a;
        if min < c then
        writeln('Минимальное число = ', min)
        else
        writeln('Минимальное число = ', c);
    end.

Самые новые вопросы