На отрезке [1; 3] с шагом 0, 5 протабулируйте функцию √x+2x\x-5

Program gt; var y,x: real; begin x: =0.5; while x< 3 do begin x: =x+0.5; y: =sqrt(x+2*x(x-5)); writeln(y); end; end.

F=¬a+b& c a b c   ¬a   b& c     f 0 0   0     1     0       1 0 0   1     1     0       1 0 1   0     1     0       1 0 1   1     1     1       1 1 0   0     0     0       0 1 0   1     0     0       0 1 1   0     0     0       0 1 1   1     0     1       1

Var n : longint; function check(a : longint) : boolean; var   m : array[0..9] of byte;   i : byte; begin   for i: =0 to 9 do m[i]: =0;   while a> 0 do   begin       inc(m[a mod 10]);       a: =a div 10;   end;   check: =false;   for i: =0 to 9 do if m[i]> =4 then check: =true; end; begin   n: =0;   while (n< 1000000) or (n> 9999999) do readln(n);   if check(n) then writeln('yes') else writeln('no'); end.