// 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.
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.