, - . , , , . Read ReadLn. .
:
Read(, ...)
ReadLn(, ...)
Read . . .
, 53 , Read(a,b) 53, - . , , , Var; :integer, b:char.
Read ReadLn . ReadLn : <Enter> . .
. , . Read .
, .
: .
. , .
Program Srednee; Var First, Second, Third: integer; Sum: real; Begin ClrScr; Write ( ); ReadLn(First); Write ( ); ReadLn(Second, Third); Sum:= First + Second + Third; Sum:= Sum/3; Write ( , First, , ,Second, , Third, , Sum:5:2); ReadLn; End. |
. Srednee . , , , , . Crt. Var First, Second, Third , Sum - . ClrScr (Clear Screen), Crt. Write , .
First, ReadLn(First). Write Second Third. Sum. , 3 - .
. , , Sum 3 Sum. Write. , , ReadLn .
|
|
5, 7 12, :
5, 7 12 8.00
if:
if a>b then Write(a b) Else Write( b); | if () a>b then () Else () b b, b |
while do: | |
a:=10; while a>b do begin i:= i + 1; b:=i; writeln(b) end; | while do ( ) a>b begin end , (false). , , 1 10. |
repeat until: | |
a:=10; repeat begin i:= i + 1; b:=i; writeln(b) end; until a<=b | repeat until ( ) a<=b begin end . , , , . |
for do: | |
a:=10; for i:=1 to a do begin b:=i; writeln(b) end; | for to do i:=1 a begin end , . 1 10. |