IF
, . :
IF "" Then "1" Else "2";
"" - ;
"1" , (True),
"2" , (False).
, "a" a>=0, :
IF a>=0 Then b:= Sqrt(a)
Else
begin
WriteLn('a<0');
Readln;
Halt
end;
Halt .
:
Else 2; . . :
IF "" Then "1";
: IFa<0 Then a:= abs(a);
.
PROGRAM VES; { }
CONST A1=' ';
A2=' ';
A3=' ';
A4=' ';
var
V: integer;
BEGIN
Write(' V = '); ReadLn(v);
if V<62 then WriteLn(A1) { }
else if V<75 then WriteLn(A2)
else if V<88 then WriteLn(A3)
else WriteLn(A4)
writeln(' Enter');
readln;
END.
: MOD DIV. , "N" ("N" "X1X2X3"), : X1X2X3, :
X3:= N mod 10;
N:= N div 10;
X2:= N mod 10;
N:= N div 10;
X1:= N;
, "A" "B", Frac(x); Int(x); :
x:= A/B;
if Frac(x) = 0 then writeln(' "A" "B"');
if Int(x) = x then writeln(' "A" "B"');
() . , , : 1) (a, b, c); 2) (a1, b1, c1); . .
, , : 1) > 90 - ( ); 2) < 90 - ( ); . .
. , - , . .
, "or", :
If (a > 90) or (b > 90) or (c > 90) then writeln (' - ');
|
|
, , "and", :
If (a < 90) and (b < 90) and (c < 90) then
writeln(' - ');
, , , :
If (a < 90)and (b < 90) and(c < 90) then
If (a=b) or (b=c) or (a=c) then
writeln(' - ')
else writeln(' - ');
, , :
If (a+b+c)<>180 then
begin
writeln(' <> 180');
Halt
end;
, , , "and" , "or". , (a, b, c, d), ( ), :
If ((a=b) and (c=d)) or ((a=c) and (b=d)) or ((a=d) and (b=c)) then
writeln('');