дана строка определить сколько в ней *:;
5-9 класс
|
var
i,x,y,z:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]='*' then x:=x+1;
if s[i]=':' then y:=y+1;
if s[i]=';' then z:=z+1;
end;
writeln('* ',x);
writeln(': ',y);
writeln('; ',z);
end.
Другие вопросы из категории
-скажите плиз ответ на этот вопрос (информатики 6 класс)
такое ?" ).
Подлежащее-
Существительное-
Принтер-
Целое число-
Сложение-
Прямоугольник-
Учебник-
Бабочка-
Собака-
нарисовать квадрат, необходимо...... Чтобы нарисовать овал, необходимо..... Чтобы нарисовать круг, необходимо..... Помогите пожалуйста
Читайте также
2)дана строка S вместо каждого символа * записать символы 0 Напечатать полученную строку
3)дана строка S получить и напечатать строку Т образуемую путем прочтения строки S начиная с ее конца
4)дана строка S в которой есть одна открывающаяся скобку и одна закрывающаяся скобку Удалить все символы между этими скобками
2. Дана фраза. Определить, сколько в ней предложений.
тока дана строка символов, длина которой не превышает 255.
1. Ввести с клавиатуры символьную строку и заменить в ней все буквы "а" на "б" и все буквы "б" на "а".( заглавные на заглавные и строчные на строчные буквы) пример: ааббАА, а после замены стало: ббааББ.
2.Ввести с клавиатуры символьную строку и определить сколько в ней слов. Пример: Вася пошел гулять.---- Найдено 3 слова.
3.Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы. Пример: Пирожков Петр Васильевич, а стало : П.В . Пирожков.
2.Дано предложение,определить длину последнего слова.