== проверяет одинаково ли значение операндов, если одинаковы – то условие является истинной (true);
!= проверяет одинаково ли значение операндов, если НЕ одинаковы – то условие является истинной (true);
<> проверяет одинаково ли значение операндов, если НЕ одинаковы – то условие является истинной (true);
> проверяет значение левого оператора, если он больше, чем правый – то условие является истинной;
< проверяет значение левого оператора, если он меньше, чем правый – то условие является истинной;
>= проверяет значение левого оператора, если он больше или равен правому – то условие является истинной;
<= проверяет значение левого оператора, если он меньше или равен правому – то условие является истинной;
Гордость, жадность, глупость, упрямство, тупость, неумение, выпендрежничество, и т.д
Program prog;
Uses crt;
var a,b, tmp: real;
begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
writeln;
if (a<b) then
begin
tmp:=a;
a:=b;
b:=tmp;
end;
writeln ('A = ', a);
writeln ('B = ', b);
end.
//Pascal ABC
//Вывод чисел кратных 3 на промежутке от 0 до 50
var
i:integer;
begin
for i:=0 to 50 do begin
writeln(i);
i:=i+2;
end;
end.
program raf105;
var x,y,S: integer;
begin
write('Ввод: ');
readln(x,y);
if x>y then
begin
x:= x-10;
y:= y+24;
end
else
begin
x:= x+5;
y:= y-7;
end;
S:= x-y;
writeln('Вывод: ',x,' ',y,' ',S);
end.
<h3><u><em>Язык PascalABC</em></u></h3>