помогите решить 6- е задание. программка паскаль abs если не трудно

Помогите решить 6- е задание. программка паскаль абс если не трудно то и несколько вопросов вперед. главное 6-й вопрос. все что до 6-го вопроса было уже изготовлено

Задать свой вопрос
1 ответ
Var x,y: real;
    i,s,k: integer;
begin
// номер 6
  write('x = ');  readln(x);
  if xgt;=3.5 then y:=4*sqr(x)+2*x-19
  else y:=(2*x)/(4*x-1);
  writeln('y = ',y);
// номер 10
  writeln('задание 10');
  for i:=10 to 99 do
  begin
    s:=(i mod 10)+(i div 10);
    if s+sqr(s)=i then write(i:4);
  end;  
end.

x = 3.0
y = 0.545454545454545
задание 10
  12  42  90

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт