Символьные переменные

STR1. (В №1)Напишите программу, подсчитывающую количество букв во введенной строке (слове).

Входные данные: ввести строку с длиной не более 255 символов.

Выходные данные: вывести одно число – количество символов в строке.

STR2. (В №2)Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки до тех пор, пока в строке не останется 1 символ.

Входные данные: ввести строку с длиной не более 255 символов.

Выходные данные: вывести строку, сокращая каждый раз на 1 символ (в начале вывести всю строку, последней строкой должна быть строка из одного символа) с конца строки до тех пор, пока в строке не останется 1 символ.

STR3. (В №3)Напишите программу, определяющую число слов в строке. Одно слово от другого отделяется одним пробелом. В конце предложения стоит точка.

Входные данные: ввести строку с длиной не более 255 символов.

Выходные данные: вывести одно число – количество слов в строке.

Readln(s);

If s[1]=’ ‘ then r:=0 else r:=1;

For i:=1 to length(s)-1 do

If (s[i]=’ ‘)and(s[i+1]<>’ ‘) then r:=r+1;

Ghhhgh hghghghg yuyuyu

STR4. (В №4)Напишите программу, определяющую, какая из букв первая или последняя встречаются в заданном слове чаще.

Молоко

r:=0; k:=…;

For i:=1 to length(s) do begin

If s[i]=s[1] then r:=r+1;

If s[i]=s[length(s)] then k:=k+1;

End;

If r>=k then write(1) …;

Входные данные: ввести строку с длиной не более 255 символов.

Выходные данные: вывести одно число 1, если первая буква встречается чаще всего либо одинаковое количество раз, или 0, если последняя буква встречается чаще всего.

STR5.(В №1)Напишите программу, определяющую, сколько букв «о» (латинский строчный символ) стоит в заданном слове на четных местах.

Входные данные: ввести слово длиной не более 255 символов.

Выходные данные: вывести одно число – количество слов в строке.

For i:=1 to length(s) do

If (i mod 2=0)and(s[i]=’o’) then …

STR6. (В №2)Заданы фамилия, имя и отчество учащегося, разделенные одним или несколькими пробелами. Напишите программу, печатающую фамилию ученика и его инициалы (инициал заканчивается точкой). После фамилии оставлять один пробел.

Входные данные: ввести строку с длиной не более 255 символов.

Выходные данные: вывести одну строку фамилию ученика и его инициалы (инициал заканчивается точкой)..

Андрей Петрович