1 - истина, 0 - ложь.
not( 0 ) or not( 1 ) and ( 1 )
1 or 0 and 1
1 or 1
сначала выполняются действия в скобках,затем логические операции not,затем and и в конце or.
Ответ: это выражение истинно.
Var a,a1,a2,a3,a4,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
b:=a1*1000+a3*100+a2*10+a4;
writeln('b = ',b);
end.
Пример:
a = 4682
b = 4862
Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
Самая популярная CorelDraw.
Так же хорошие программы: Adobe Streamline, PageMaker.
Лишнее слово- это Карта расширения