maryariazantseva
?>

с информатикой . Составьте программу по заданию

Информатика

Ответы

Natalya1895

var

   x, y: integer;

begin

   Readln(x);

   if x < -50 then

       y := 7 * x * x;

   if (x > -50) and (x < 50) then

       y := Abs(3 * x)

   else

       y := x * x * x;

   Writeln('y = ', y);

end.

Объяснение:


с информатикой . Составьте программу по заданию

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

с информатикой . Составьте программу по заданию
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

annaan-dr582
lenapopovich556510
Александровна
cheshirsky-kot
vladburakoff5
Elen-ti81459
Полковников_Милана
СмыковаДарья1969
Бражинскене_Алексей
yanermarina87
egamedicalbuh
Ushakova Sakhno
alexandergulyamov
Филиппович_Николаевич
Maloletkina-marina2