Составте программу пж ** PascalABCNET очень прошу пожалуйста

0 голосов
83 просмотров

Составте программу пж на PascalABCNET очень прошу пожалуйста


image

Информатика (67 баллов) | 83 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите через пробел a,b,c:');
  var x:=ReadReal('x=');
  var ω:=x<1.2 ? a*x*x+b*x+c : x=1.2 ? a*x+Sqrt(x*x+1) : (a+b*x)/Sqrt(x*x+1);<br>  Writeln('ω=',ω)
end.


image
(150k баллов)
0

ну......

0

это институт

0

можете зайти ко мне я выложил полное условие новый вопрос