с клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".
10-11 класс
|
var
n,k,i: integer;
s:string;
begin
write('Введите фразу: ');
readln(s);
k:=length(s)-1;
if s[1]='а' then n:=1;
for i := 1 to k do
if (s[i]=' ') and (s[i+1]='а') then n:=n+1;
writeln('Число слов на а(рус.): ',n)
end.
а - английская или русская?
Другие вопросы из категории
как через кабель все отлично(
Помогите пожалуйста!!!!
Группа учащихся из N человек сдавала по 4 предмета. Определить и напечатать фамилии учащихся у которых средний балл за экзамены больше среднего балла всей группы?
Читайте также
Где начать цикл?
с клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".
Program Pr1;
var s, s1, s2:string;
count, n, i:integer;
begin
writeln('введите фразу');
readln(s);
count:=0;
for i:=1 to length(s) do
begin
n:=Pos(' ', s);
s1:=Copy(s,1,n-1);
s2:=Copy(s1,1,1);
if s2='а' then
count:=count+1;
Delete(s,1,1);
end;
writeln(count);
end.
и удовлетворяют след. свойству:
- слово совпадает с начальным отрезком латинского алфавита ('a','ab','abc' и т.д.)
P.s. Только решить её надо не использую строки.Вместо них array of char...
Пример ввода:
writeln('Введите предложение, символ конца - точка');
i := 0;
repeat
inc(i);
read(a[i])
until (a[i] = '.')or(i = n);
Заранее огромное спасибо.
случае надо следить за текущей позицией в строке и при вводе очередного "слова" контролировать, чтобы его длина плюс текущая позиция не превысили длины строки. в QBasic
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
тип файла
программное обеспечение
название программы
2. Файл - это:
поименованный объект, расположенный на диске
поименованная совокупность байтов, размещенная на внешнем носителе
совокупность поименованных ячеек памяти
3. Задан полный адрес файла: c:\documets\prikaz.doc. Какое у файла составное имя?
prikaz.doc
documets\prikaz.doc
documets\prikaz
^ 4. К сервисным системам относятся:
интерфейсные системы
инструментальные системы
утилиты
программные системы
оболочки
^ 5. Какое программное обеспечение обеспечивает рабочую среду для других программ:
прикладное
системное
инструментальное
^ 6. Какая версия программного продукта является более новой:
MS DOS 6.0
MS DOS 6.20
MS DOS 6.22
7. Программы, скачанные из Интернета и имеющие определенный срок пользования, являются:
платными
бесплатными
условно-бесплатными
^ 8. Интерфейс, в котором для управления компьютером используются объекты, называется:
объектно-ориентированным
графическим
командным
^ 9. Программы, которые существенно меняют пользовательский интерфейс, не меняя при этом программный, относятся к:
утилитам
интерфейсным системам
оболочкам
^ 10. Какой шаблон позволяет найти файлы, которые начинаются на букву f, заканчиваются на t и имеют любое расширение:
*f????t.*
f*?d.*??
f?*d.*
^ 11. Сколько различных операционных систем можно установить на одном жестком диске:
только одну
только две
только три
12. Какое максимальное число логических дисков можно создать в расширенном разделе:
три
любое
23
13. После форматирования диска его доступный объем может уменьшиться по причине:
наличия на диске логических ошибок
наличия испорченных секторов
наличия фатальных ошибок