.


- 8


,

write ... readln ... - , :

a := 23; b := 105; c := -11.2.

2. , , , .. .

, :

s := a div 100;

d := a div 10 mod 10;

e := a mod 10;

sum := s + d + e

, , .

3. , , ( ).

begin

write ...

readln ...

if ... then

begin

.....

end

else

begin

.....

end;

end.

4. : begin end, , , : repeat until, record end, case

end.

5. if , , then else.

if:

) if ... then ...

else ...

) if ... then ...

else ...

) if ...

then ...

else ...

) if ...

then ...

else ...

) if ... then ... else ...

6. (, , ), , .

7. : , - , ; - , : - .

Serg . Turbo Pascal.