Срочно! информатика. Перевести на Паскаль и написать программу для решения этого...

Лучше на С++, структура была бы другой! Получше... Но пока как-то так!

Да вот задали на паскале.... Вот сидел и плакал над ним...) пасибо)

Там проверьте еще точки с запятой... Я быстро писала, может где забыла поставить... бегины и энды сверьте...

На С++ школьные задачи всегда ХУЖЕ и замороченнее выглядят.

А в решении автор забыл описать переменную a и обеспечить её инициализацию.

Ну как, все еще осталась мысль, что на С++ "лучше" ? )))

попробуемprogram lll;varx,x1:real;res1,res2,res3,res4:real;beginreadln(x);x1:=abs(x);if (x<0) thenbeginres1:=2*sin(x1)endelseif(x>0) thenif(x<=5) thenbeginres2:=sqrt(x);end;elseif (x>5)then if (x<=10) thenres3:=2x*x-sqr(x);endelseres4:=cos(2*x)/a;end;end.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!Вариант 1begin  var (x,a):=ReadReal2('Введите х и a через пробел:');  var y:real;  if x<=0 then y:=2*Sin(Abs(x))  else    if x<=5 then y:=Sqrt(x)    else      if x<=10 then y:=2*x*x-Sqrt(x)      else y:=Cos(2*x)/a;  Writeln('Y=',y)end.Вариант 2begin  var (x,a):=ReadReal2('Введите х и a через пробел:');  Writeln('Y=',      x<=0 ? 2*Sin(Abs(x)) :      x<=5 ? Sqrt(x) :      x<=10 ? 2*x*x-Sqrt(x) : Cos(2*x)/a)end.ПримерыВведите х и a через пробел: 12.4 -3Y=-0.315050171382724Введите х и a через пробел: 5.8 1.156Y=64.8716810842415