Много лишнего(наверно), только с олимпиады!Как есть. uses crt; var b,n,i,k,c,o,x1:integer; f,s,ch:string; r,g: text; A:array [0..9] of integer; begin assign (r,'C:\Bin.txt'); reset (r); readln (r,f); close (r); for i:=1 to length(f) do begin s:=copy(f,1,1); if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then delete(f,1,1); if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then begin x1:=pos(s,ch); if x1<>0 then begin delete(ch,x1,1); ch:=ch+s; end else ch:=ch+s; end; end; val(ch,n,o); N := Abs(N); for i := 0 to 9 do A[ i ] := 0; while N > 0 do begin Inc(A[ N mod 10]); N := N div 10; end; assign (g,'C:\Bout.txt'); rewrite (g); for i := 0 to 9 do while A[ i ] > 0 do begin Write(g,i); Dec(A[ i ]); end; close(g); end.
BEGIN write ('Vvedite 2 chisla: '); readln (A, B); if A > B then begin A := A/3; B := B*2; end; if B > A then begin B := B/3; A := A*2; end; writeln (A, B); END.
ax^2 + bx + с = 0 - это длинная программа. Нужно учесть такие случаи: 1) а = 0, x = -c/b; 2) a =/=0, D=b*b-4*a*c > 0, x1 = (-b - sqrt(D)) / (2*a), x2 = (-b + sqrt(D)) / (2*a); 3) D = 0, x1 = x2 = -b / (2*a); 4) D < 0, действительных корней нет. Комплексные корни, если нужно: x1 = -b / (2*a) - i*sqrt(-D)) / (2*a), x2 = -b / (2*a) + i*sqrt(-D)) / (2*a);
y = Abs(x-1) - тут вообще делать нечего. Подставляй разные х и вычисляй у.
Попробуйте вставить эту формулу:
=ЕСЛИ(B2>(МАКС(B$2:B$10)-МИН(B$2:B$10))*90%;"отлично";ЕСЛИ(B2>МИН(B2:B10)+20%*(МАКС(B$2:B$10)-МИН(B$2:B$10));"хорошо";"удовлетворительно"))