Задана строка. Подсчитать, сколько пробелов в строке. Паскаль.
Спасибо.
Ответы на вопрос
Ответил Аноним
0
program E07;
uses crt;
var
S: string;
i,k: integer;
begin
clrscr;
writeln('Введите строку: ');
readln(S);
K:=0;
for i:=1 to length(S) do
if S[i] = ' ' then
K:=K+1;
writeln('В строке ',K:2,' пробелов!');
end.
uses crt;
var
S: string;
i,k: integer;
begin
clrscr;
writeln('Введите строку: ');
readln(S);
K:=0;
for i:=1 to length(S) do
if S[i] = ' ' then
K:=K+1;
writeln('В строке ',K:2,' пробелов!');
end.
Ответил samouchka97
0
Знакомые всё лица :)
Большое спасибо.
Большое спасибо.
Ответил Аноним
0
Ага
Новые вопросы
Русский язык,
2 года назад
Английский язык,
2 года назад
Алгебра,
9 лет назад
Обществознание,
10 лет назад
Алгебра,
10 лет назад