1. Составить программку нахождения значения функции по заданному х.Программку запустить три

Паскаль? Бейсик? С++?

Паскаль

Опираться на чертёж либо на функции?)) Парабола при x = 2 даст 4, а на рисунке всего 1))

на функции.

Var
X:real;
Begin
Write('X = ');ReadLn(X);
if абс(X)lt;=2 then Write('Y = ',X*X)
else Write('Y = ',1);
End.

либо так:

Var
X,Y:real;
Begin
Write('X = ');
ReadLn(X);
if абс(X)lt;=2 then Y:=X*X
else Y:=1;
WriteLn('Y = ',Y)
End.

1-ый запуск:
X = 1.3
Y = 1.69
2-ой:
X = 2.71828
Y = 1
3-ий:
X = -3.141592
Y = 1