Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Дано натуральное число n, символы S1, S2,…,S(n). Группа символов, разделенных одним или несколькими пробелами и не содержащих пробелов внутри себя, назовём словами. Найти количество слов, начинающихся с буквы «В» и оканчивающиеся на «С».

Просмотров: 893
Объяснение: +

РЕШЕНИЕ:

program PascalGuru; uses crt; var S:array[1..50] of string[15]; {переменная массива слов (кол-во букв в слове <=15)} kol,i,n:integer; {переменные для циклов} temp:string[15]; begin write('n= '); readln (n); {считываем размер массива} writeln ('Vvedite elementy massiva S: '); for i:=1 to n do begin write ('S[',i,']='); readln (S[i]); {считываем элементы массива} end; clrscr; writeln ('Vot vvedennyi vami massiv S: '); for i:=1 to n do writeln (S[i]); {выводим массив на экран} kol:=0; for i:=1 to n do begin temp:=S[i]; if (temp[1]='B')and(temp[length(temp)]='C') then inc(kol); end; writeln;writeln; writeln('Otvet: ',kol); {выводим на экран результат = кол-во} readln; end.

нажми на эту область и скопируй решение


	© 2008 - 2014 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.