Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Написать программу по блок-схеме

Ответ оставил Гость

Var a,b,c:integer;
begin
write(a=); readln(a);
write(b=); readln(b);
write(c=); readln(c);
if a>b
  then if a              else if b>c then writeln(b, - среднее)
                         else writeln(c, - среднее)
 else if a>c then writeln(a, - среднее)
              else if b                         else writeln(c, - среднее);
end.

Пример:
a=7
b=5
c=2
5 - среднее