92
[
ET
ES
| s
cus
10 INPUT A.H
10 INPUT "BASE?=" ‚АРШ
|
15
INPUT
"MEIGHT?="
„Н
| 20 IF H=0 THEN60
| ж iF H=0 THEN& ^
н ocima
| Nc
40
PRINT A:H.C
40
PRINT:PRINT
"BASE =" ;A ;HEIGHT="
н
45 PRINT "AREA-"; CB]
50 GOTO 10
50 FOR 1=0 TOI000:NEXT I:GOTO SE
60 END
d 80 PRINT:ENDBN]
BASE
= 20 HEIGHT=
80
AREA
= вее
Explications sur les parties transformées
сїз
Effacement d'écran.