Задать вопрос
6 марта, 06:18

Решите задачу по информатике за 7 класс на Pascale, через Integer.

Даны три числа нужно вывести среднее при этом они не могут быть одинаковыми.

Например: 6, 10, 3 вывести 6.

Например: 13, 5, 11 вывести 11.

+2
Ответы (1)
  1. 6 марта, 08:37
    0
    Var

    x, y, z, mid:integer;

    begin

    Readln (x, y, z) ;

    if (x > y) and (x > z) then

    if z > y then mid:=z

    else mid: = y;

    if (y > x) and (y > z) then

    if z > x then mid:=z

    else mid: = x;

    if (z > y) and (z > x) then

    if x > y then mid:=x

    else mid: = y;

    Writeln (mid) ;

    end.

    Пример:

    4 6 47

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