Программы на Паскале прилагаются.
var x,y:real;
begin
writeln('Введите значение x: ');
readln(x);
if x<0 then
begin
y:=x/2;
writeln('y = ',y);
end
else
begin
if x>=0 then
y:=sqrt(3+x);
writeln('y = ',y);
end;
end.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
<u>Результат</u>
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.
Компьютер
Монитор
системный блок
клавиатура
Счастье буз ума - дырявая сума
всякое семя знает своё время
1)г,б,а,в
2)б,в,а,г
3)г,в,б,а
4)в,б,а,г
5)г,а,б,в
Я написала порядок букв например
г-мопсы пудели и тж