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

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

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

Задача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

Задача — Среди трех чисел найти среднее
— программирование на Pascal, Си, Кумир, Basic-256, Python

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

Проверить, лежит ли первое число между двумя другими. При этом может быть два случая:

• первое больше второго и первое меньше третьего,
• первое меньше второго и первое больше третьего.

Если ни один из вариантов не вернул истину, значит первое число не среднее. Тогда проверяется, не лежит ли второе число между двумя другими. Это может быть в двух случаях, когда

• второе больше первого и меньше третьего,
• второе меньше первого и больше третьего.

Если эти варианты также не вернули истину, то остается только один вариант — посередине лежит третье число.

Pascal

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

Python

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

Basic-256

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

Did you find apk for android? You can find new Free Android Games and apps.