profile
Размещено 4 года назад по предмету Информатика от Leg3nda1

ДАЮ 95 БАЛЛОВ. Заранее спасибо.

Написать программу для решения задач на Pascal ABC:

Даны три различных целых числа. Найти среднее из них. (Средним называется число, которое больше наименьшего и меньше наибольшего из данных чисел)
Найти наибольшее из трех заданных чисел.

  1. Ответ на вопрос
    Ответ на вопрос дан wdwwd2

    Ответ:

    Первый вариант:

    program N60286025;

    var a,b,c,m:integer;

    begin

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

    readln(a);

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

    readln(b);

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

    readln(c);

    if (a <= b) and (b <= c) or (a >= b) and (b >= c) then m := b;

    if (b <= a) and (a <= c) or (b >= a) and (a >= c) then m := a;

    if (c <= b) and (a <= c) or (c >= b) and (a >= c) then m := c;

    writeln('Среднее число ',m);

    readln

    end.

    Второй вариант:

    program N60286025;

    var a,b,c,m:integer;

    begin

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

    readln(a);

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

    readln(b);

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

    readln(c);

    if a <= b then

    if a <= c then

    if b <= c then

    m := b

    else

    m := c

    else

    m := a

    else

    if a <= c then

    m := a

    else

    if b <= c then

    m := c

    else m := b;

    writeln('Среднее число ',m);

    readln

    end.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.