.
, , . , .
.
, .
, , - , , .
(a b) ( -), writeln(a), a.
( , ), .
, .
2. :
INTEGER - -32768 32767
REAL 2.9-39 1.7+38
CHAR
STRING - ( 255)
BOOLEAN - 2 : FALSE() TRUE()
10 .
VAR. ! , .
: var
del:real;
sum,pr:integer;
text1,t2,t3:string;
.
1:
program primer1;
var
name:string;
begin
write(' ? ');
readln(name);
writeln('!',name);
end.
readln ' ? ' , Enter name. '!< >'. : - '!', - '!' ..
readln , , .
2:
, .
, (n1,n2 integer), (pr integer), (del real).
program primer2;
var
n1,n2,pr:integer;
del:real;
begin
write(' N1=');
readln(n1);
write(' N2=');
readln(n2);
pr:=n1*n2;
del:=n1/n2;
writeln('N1*N2=',pr);
writeln('N1/N2=',del);
end.
.
:
1. , (write readln). , , .
|
|
2 :
write(' N1=');
readln(n1);
write(' N2=');
readln(n2);
2. :=. , , .
3. , writeln, , .
2 :
writeln('N1*N2=',pr);
writeln('N1/N2=',del);
.
1. , :
...., !
2. , , .
3. , ( ) :
t() = t(.) + 273
4. , , :
(,),
!
()! !
5. , , , .