program words1;
var
k1, k2, k3, i: Byte;
s: String;
begin
s:= 'shop.balkhash.kz';
k2:= length(s);
for i:= k2 downto 1 do
if s <> '.' then
inc(k3)
else
break;
k1:= pos('.', s)-1;
k2:= k2 - k1 - k3 - 2;
write(k1, k2, k3);
readln;
end.
Pascal.Определить количество слов.
Помогите, пожалуйста, сделать следующее задание.
Дана строка символов. Определить количество слов, встречающихся между точками, до первой точки, после последней точки.
Для начала попыталась просто посчитать кол-во слов в предложении,не работает :facepalm:
program T;
uses crt;
var m:char;
k: Integer;
begin
Readln(m);
begin
while m <> '.' do
BEGIN
if m = ' ' then k := k+ 1;
END;
Writeln ( 'количество слов = ' ,k);
end;
END.
Дана строка символов. Определить количество слов, встречающихся между точками, до первой точки, после последней точки.
Для начала попыталась просто посчитать кол-во слов в предложении,не работает :facepalm:
program T;
uses crt;
var m:char;
k: Integer;
begin
Readln(m);
begin
while m <> '.' do
BEGIN
if m = ' ' then k := k+ 1;
END;
Writeln ( 'количество слов = ' ,k);
end;
END.
Код:
где k1 - кол-во слов до первой точки, k2 - кол-во слов между первой и последней точки, k3 - кол-во после последней точки
Var
S:array [1..3] of integer;
T:string;
J,i:integer;
Begin
Readln(t);
J:=1;
Repeat
Inc(i);
If t in [',', ' ', '?', '!', ':', ';'] then inc(s[j]);
If t = '.' then inc(j);
Until i = length(t);
Writeln('до точки',s[1],'между точками',s[2],'после последней',s[3]);
Readln;
End.
Предпологается что, в строке всего две точки.
S:array [1..3] of integer;
T:string;
J,i:integer;
Begin
Readln(t);
J:=1;
Repeat
Inc(i);
If t in [',', ' ', '?', '!', ':', ';'] then inc(s[j]);
If t = '.' then inc(j);
Until i = length(t);
Writeln('до точки',s[1],'между точками',s[2],'после последней',s[3]);
Readln;
End.
Предпологается что, в строке всего две точки.