Question

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

Answer 1

var x,y: real;
    i,s,k: integer;
begin
// номер 6
  write('x = ');  readln(x);
  if x>=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