Var
a, b, c: integer;
Begin
writeln('Введите числа a, b, c');
readln(a, b, c);
if a >= (b + c) then a:= b + c;
writeln(a);
END.
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(ReadInteger('x ='), -17, 17);
a.Println;
a.Transform(x -> -x);
a.Println;
end.
Var
a, b, c, ma, mb, mc: real;
begin
read(a); read(b); read(c);
ma:=(sqrt(2*b*b+2*c*c-a*a))/2;
mb:=(sqrt(2*a*a+2*c*c-b*b))/2;
mc:=(sqrt(2*a*a+2*b*b-c*c))/2;
writeln('Медиана к стороне a=', ma:17:2);
writeln('Медиана к стороне b=', mb:17:2);
writeln('Медиана к стороне с=', mс:17:2);
end.
1. компьютер
2. робот
3. телефон
4. ноутбук
Устройство вывода - монитор
Не хватает буквы "И"