// 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.
Var n, a, s: real; i: integer; label 1, 2, 3, 4; begin 1: Writeln('1)Периметр квадрата'); Writeln('2)Площадь равностороннего треугольника'); Write('Ваш выбор >>> '); Read(n); Writeln(''); if n = 1 then begin 2: Write('Введите площадь кварата >>> '); Read(s); if s < 0 then begin Writeln('Некорректный ввод'); Writeln(''); goto 2; end; a := Sqrt(s) * 4; Writeln(''); Writeln('Периметр квадрата >>> ', a); goto 4; end else if n = 2 then begin 3: Write('Введите периметр равностороннего треугольника >>> '); Read(a); if a < 0 then begin Writeln('Некорректный ввод'); Writeln(''); goto 3; end; s := (sqrt(3) / 4) * Sqr(a/3); Writeln(''); Writeln('Площадь равностороннего треугольника >>> ', s); goto 4; end else begin Writeln('Некорректный ввод'); Writeln(''); goto 1; end; 4: Writeln(''); Writeln('1)Заного'); Writeln('2)Выйти'); Write('Ваш выбор >>> '); Read(n); Writeln(''); if n = 1 then goto 1 ; else exit; end.
// Внимание! Если программа не работает, обновите версию!
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.