1 . 3
2 7 44. 4
3 7. 4
3.1 . 4
3.2 . 4
3.3 7. 4
3.4 - 7. 5
4 44. 6
4.1 . 6
4.2 . 6
4.3 44. 6
4.4 - 44. 7
4.5 44. 7
. 8
. , 256 .
:
set of
:
Type
Digits = set of 1..9;
Var
S:= digits;
:
- ;
- ;
- : , , .
:
- ;
- ;
- ;
- \ .
7 44
7
. , . , , .
44
. , . , , .
7
s: string();
i: integer();
digits: set of char();
sum: integer();
1
2 ,
3 ,
4 .
7
Program lab6;
Var
s: string;
i: integer;
digits: set of char;
sum: integer;
Begin
digits:= ['0'..'9'];
Writeln(' ');
readln(s);
for i:= 1 to length (s) do
if s[i] in digits then
digits:= digits-[s[i]];
sum:= 0;
for i:= 1 to 9 do
if chr (ord('0')+i) in digits then
sum:= sum+i;
writeln (sum);
readln;
End.
3.4 - 7
               
| |||||||
|
|
|
44
S: string();
MaxN, CurN, i: logint ( )
Const
Digits: set of char ().
1: ;
2: , ;
3: , .
44
Program L6Z44;
Const
Digits: set of char = ['0','1','2','3','4','5','6','7','8','9'];
Var
s: string;
MaxN, CurN, i: longint;
Begin
Writeln(' : ');
Readln(s);
MaxN:= 0;
CurN:= 0;
for i:=1 to length (s) do
if s[i] in Digits then
Inc(CurN)
else begin
if CurN>MaxN then MaxN:=CurN;
CurN:=0;
end;
Writeln(' : ',MaxN:1);
Readln;
End.
- 44
