Составьте программу "if" на языке Паскаль АВС. Пожалуйста. До завтра надо(((
Нет комментариев
Ответы
Гость Var x,y:real;
Begin
Write('x = ');ReadLn(x);
if (-1<=x)and(x<=1) then WriteLn('f(',x,') = ',4-2*x*x)
else if (1<x)and(x<=3) then WriteLn('f(',x,') = ',x+1)
else WriteLn('Функция не определена')
End.
Нет комментариев
Похожие вопросы
Информатика
Visual Studio, не знающих прошу не беспокоить...
Информатика
Определите значение переменной Y по блок-схеме алгоритма при:1) при x=5
2) при x=-5
3) при x=0...
Информатика
ПОМОГИТЕ ПОЖАЛУЙСТА...
Информатика
Помогите пожалуйста)))...
Список предметов
