Регистрация
sleepyfriend18
16.07.2021 23:49
Информатика
Есть ответ 👍

Надо в pascal перевести

263
497
Посмотреть ответы 2

Ответы на вопрос:

ЕлизаветаВернер
ЕлизаветаВернер
4,6(1 оценок)

                                       PascalABC.NET

begin

 var x := ReadReal('Введите x =');

 var y: Real;

 if x > 2.5 then

     y := x - 2

   else

     if x < 0 then

         y := x*ln(abs(cos(x)))

       else  

         y := 1+x*x;

 writeln('y = ',y);

end.

БогданКК
БогданКК
4,8(1 оценок)
1. диапазон  а1: с1 состоит из 3 ячеек, поэтому сумм(а1: c1) = 3* срзнач(а1: с1) = 3*5 = 15d1 =  сумм (а1: d1)-сумм(а1: c1) = 7-15 = -8 2. а) знаки арифметических операций в формулах не могут быть опущены; б) операции одного приоритета выполняются слева направо верный ответ:   в) 5*(a2+c3)/(3*(2*b2-3*d3))

Популярно: Информатика