Moduļu veidošana

3 Moduļa pirmteksta sagatave

unit SyU;

Interface
const LenStrMod=255;
type StrData = string[LenStrMod];
Count = 0..LenStrMod;
var counter: integer;


procedure SimbToZero(InpStr: StrData; var OutpStr: StrData);

Implementation

procedure CheckSimb(InpStr: StrData);
var i,len,c: integer;

begin
c:=0;
len:=LENGTH(InpStr);
for i:=1 to len do
begin
if (InpStr[i]>'9') or (InpStr[i]<'0') then
begin
c:=c+1;
end;
end;
counter:=c;
end;…