Задать вопрос

Даны переменные A, B, C, D найти MAX и MIN надо текст для паскаля

+2
Ответы (1)
  1. 21 октября, 07:27
    0
    program zz1;

    var a, b, c, d, max, min:integer; / /задаем переменные целого типа

    begin

    write (' введите первое число '); / / вводим с клавиатуры первое число

    read (a);

    write (' введите второе число '); / / вводим с клавиатуры второе число

    read (b);

    write (' введите третье число '); / / вводим с клавиатуры третье число

    read (c);

    write (' введите четвертое число '); / / вводим с клавиатуры четвертое число

    read (d);

    if (a>b) and (a>c) and (a>d) then max:=a;

    if (b>a) and (b>c) and (b>d) then max:=b;

    if (c>b) and (c>a) and (c>d) then max:=c;

    if (d>b) and (d>c) and (d>a) then max:=d;

    if (a
    if (b
    if (c
    if (d
    writeln (' максимальное = ', max); / / выводим ответ

    write (' минимальное = ', min);

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Даны переменные A, B, C, D найти MAX и MIN надо текст для паскаля ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы