Даны 2 прямоугольника с разной площадью. вывести на экран монитора площадь наименьшего.

Var  a,b: real; begin read  (a,b); if  (a< > b) and  (a> 0)  and  (b> 0) then begin if  (a> b) then writeln (b);   if (b> a) then writeln (a); end else  writeln  ('неверные  площади'); end.

1) если x^3 < 10, то (x+1)^3 > 20. это верно при x = 2.  2^3 < 10, 3^3 > 20 2) если x(x+1) > 10, то (x+1)(x+2) < 10. это верно при x = -4 (-) = 12 > 10; (-) = 6 < 10  но при x = 2 будет ложная посылка (2*3 > 10 - это ложно), из которой следует ложный вывод 3*4 < 10. поэтому импликация верна. ответ x = 2 3) если x(x+1)(x+2) > 25, то x < x-1 это сложнее. x < x-1 - ложно при любом х. импликация будет истинной, только если посылка ложная. x(x+1)(x+2) > 25 - должно быть ложно. это при x = 2. x(x+1)(x+2) = 2*3*4 = 24.

Uses crt; var adr: array[1..10] of string; sub: array[1..10] of string; i,k: integer; s: string; begin; for i: =1 to 10 do begin; writeln('input town of ',i,'student'); readln(s); adr[i]: =adr[i]+s+' '; writeln('input street of ',i,'student'); readln(s); adr[i]: =adr[i]+s+' '; writeln('input house of ',i,'student'); readln(s); adr[i]: =adr[i]+s+' '; writeln('input apartament of ',i,'student'); readln(s); adr[i]: =adr[i]+s; if pos('краснодар',adr[i])< > 0 then begin; inc(k); sub[k]: =adr[i]; end; end; textcolor(4); writeln('result: '); for i: =1 to k do writeln(sub[i]); end.