Среди трех чисел найти среднее если среди чисел есть равные вывести сообщение ошибка паскаль

var a,b,c: integer;
begin
  write(‘числа: ‘); readln(a,b,c);
  if a>b then swap(b,c);
  if c<a then swap(a,c);
  if b>c then swap(b,c);
  if (a=b) or (b=c) then writeln(‘ошибка’)
  else writeln(‘среднее: ‘,b);
end.

числа: 9 17 8
среднее: 9

Задача1.

Месячная выплата m по займу в s
рублей на n лет под процент p вычисляется по формуле:
m = (s * r * (1 + r)ⁿ) / (12 * ((1 + r)ⁿ – 1)), где r = p
/ 100.

Программа, вычисляющая значение m
(месячную выплату) по известным s (сумме займа), p (проценту) и n (количеству
лет), может выглядеть так:

Программа на языке
Паскаль: 

var

    m, s, p, n, r, a: real;

begin

    write(‘Величина заема : ‘);

    readln(s);

    write(‘Процент: ‘);

    readln(p);

    write(‘Количество лет: ‘);

    readln(n);

    r := p / 100;

    a := exp(ln(1 + r) * n);

    m := (s * r * a) / (12 * (a — 1));

    m := trunc(100 * m + 0.5) / 100;

    writeln;

    writeln(‘Месячная выплата: ‘, m:5:2);

    writeln(‘Прибыль банка: ‘, m * 12 * n — s:5:2);

readln

end.

Задача 2: Среди
трех чисел найти среднее. Если среди чисел есть равные, вывести сообщение
«Ошибка».

Программа на языке
Паскаль: 

var

    a1, a2, a3: integer;

begin

    write
(‘Введите три числа:
‘);

    readln (a1, a2, a3);

    if (a1 = a2) or (a1 = a3) or (a2 = a3) or ((a1 = a2) and (a2 = a3)) then

        writeln(‘Ошибка‘)

    else

        if ((a1 >
a2) and (a1 < a3)) or ((a1 <
a2) and (a1 > a3)) then

            writeln(a1)

        else

            if ((a2 >
a1) and (a2 < a3)) or ((a2 <
a1) and (a2 > a3)) then

                writeln(a2)

            else

                writeln(a3);

end.

Пример работы программы:        Введите три числа: 7
4 6

                                              
6

Перейти к содержанию

var

    a1, a2, a3: integer;

 
begin

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

    readln (a1, a2, a3);

 
    if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then

        writeln(a1)

    else

        if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then

            writeln(a2)

        else

            writeln(a3);

 
end.

Введите три числа: 3 5 4

4

#include < stdio.h>

main() {

    int a, b, c;

    scanf("%d%d%d", &a,&b,&c);

    if (a > b && a < c || a < b && a > c)

        printf("%dn", a);

    else

        if (b > a && b < c || b < a && b > c)

            printf("%dn", b);

        else

            printf("%dn", c);

}

110 111 109

110

print('Введите три числа: ')

a = int(input())

b = int(input())

c = int(input())

 
if b < a < c or c < a < b:

    print('Среднее:', a)

elif a < b < c or c < b < a:

    print('Среднее:', b)

else:

    print('Среднее:', c)

Введите три числа: 

453

244

901

Среднее: 453

print "Введите три числа: "

input a

input b

input c

print "Среднее: ";

if a > b and a < c or a < b and a > c then 

	print a

else

	if b > a and b < c or b < a and b > c then 

		print b

	else

		print c

	endif

endif

Введите три числа: 

45

60

54

Среднее: 54