Вопрос школьника по предмету Информатика
Даны 3 различных числа. Определить, какое из них (первое, второе или третье) является средним
Ответ учителя по предмету Информатика
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c:real;
Read(a,b,c); // не вводить одинаковых!
if a>b then
if a>c then // a > [b,c]
if b>c then Writeln(‘Среднее — второе число’)
else Writeln(‘Среднее — третье число’)
else Writeln(‘Среднее — первое число’)
else
if b>c then // b > [a,c]
if a>c then Writeln(‘Среднее — первое число’)
else Writeln(‘Среднее — третье число’)
else Writeln(‘Среднее — второе число’)
end.
Похожие вопросы от пользователей