1. X:=4; if x>0 then y:=sqr(x); writeln(y)
2. If x>0 then y:=2*x else
y:=3*abs(x); writeln(y)
3. Case 5<>5 of
True:writeln(1);
False:writeln(3); end;
4. Case 6 of 2: writeln(0); 4:
writeln(1) Else writeln(2);
end;
5. Begin x:=5; x:=ord(x);
x:=succ(x); writeln(x);
end;
6. X:=10; if x>10 then y:=x*x
else y:=2*x; writeln(x)
7. X:=10; if odd(x) then y:=x
div 2 else y:=x mod 2;
writeln(y)
8. K:=0; case 8 of 6:
writeln(k); 8: begin
k:=k+1; writeln(k); end;
End;​

evika8444    1   18.06.2021 16:32    3