Begin. For i:= 1 To n Do. For i:= 1 To n Do. For i:= 1 To n Do. For i:= 1 To n Do. Самостоятельная работа № 18

⇐ ПредыдущаяСтр 3 из 5Следующая ⇒

Begin

Clrscr;

Writeln(‘Введите строку’);

Readln(s);

n:= Length(s);

k:= 0;

For i:= 1 To n Do

If (s[i] = ’ ’) or (s[i] = ’.’) Then k:= k + 1;

Writeln(‘слов – ’, k);

End.

Пример 8

Дан текст. Удалить первую букву каждого слова.

Program pr8;

Uses crt;

Var n, i: integer; s: string;

Begin

Clrscr;

Writeln(‘Введите строку’);

Readln(s);

n:= Length(s);

Delete(s, 1, 1);

For i:= 1 To n Do

If s[i] = ’ ’ Then Delete(s, i + 1, 1);

Writeln(s);

End.

Пример 9

Дан текст. Определить правильность написания сочетаний “жи” и “ши” и исправить ошибки.

Program pr9;

Uses crt;

Var k, n, i, m: integer; s: string;

Begin

Clrscr;

Writeln(‘Введите строку’); Readln(s);

n:= Length(s);

For i:= 1 To n Do

If ((s[i] = ’ж’) or (s[i] = ’ш’)) and (s[i + 1] = ’ы’) Then s[i + 1]:= ’и’;

Writeln(s);

End.

Пример 10

Дано слово. Преобразовать все его буквы в заглавные.

Program pr10;

Uses crt;

Var с: char; n, i: integer; s: string;

Begin

Clrscr;

Writeln(‘Введите строку’); Readln(s);

n:= Length(s);

For i:= 1 To n Do

Begin

c:= Upcase(s[i]);

s[i]:= c;

End;

Writeln(s);

End.

Самостоятельная работа № 18

В 1

1. Дана строка “65”.

· получить из нее строку “6655”;

· вычислить количество символов новой строки;

· получить из новой строки строку “665”;

· преобразовать новую строку в число и увеличить его на 2.

2. В строке Т перед каждой буквой “м” вставить букву “а”.

3. Заменить в строке С все символы “№” на “#”.

4. Удалить из строки Т все символы “+”.

5. Вычислить количество букв “т” в строке S.

6. Дан текст. В каждом слове поменять местами первую и вторую буквы.

В 2

1. Дано число 11432.

· преобразовать его в строку;

· получить из нее строку “143”;

· вычислить количество символов в новой строке;

· преобразовать ее в число и увеличить его на 5.

⇐ Предыдущая 1 234 5 Следующая ⇒