Задать вопрос
21 апреля, 18:17

Составьте программу на языке Паскаля, которая находит сумму наименьшего и наибольшего из 3 введенных с экрана числа

+4
Ответы (1)
  1. 21 апреля, 22:01
    0
    Это, если не учитывать, что введённые числа могут быть одинаковы

    program p17;

    var

    x, x1, x2: integer;

    a, a1, a2: integer;

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

    readln (x) ;

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

    readln (x1) ;

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

    readln (x2) ;

    if (x>x1) and (x>x2) then a:=x

    else if (x1>x) and (x1>x2) then a:=x1

    else if (x2>x) and (x2>x1) then a:=x2;

    if (x
    else if (x1
    else if (x2
    a2:=a+a1;

    writeln ('Cумма самого большого и самого маленького числа, введённого вами: ', a2) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составьте программу на языке Паскаля, которая находит сумму наименьшего и наибольшего из 3 введенных с экрана числа ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы