Программа:
//Решение в 1 строчку:
begin writeln('Информационные технологии'.Length,'; ','Информационные технологии'.Split('а').Length-1,'; ','Информационные технологии'.Split(' ')[1],'; ','Информационные технологии'.Split('ц')[0]+'тика');end.
//Приведу другое решение задачи:
program znanija_com;
const s='Информационные технологии';
function str_count_characters(str:string; key:string:=''):integer;
var k,i,n: integer;
begin
n:=0;
k:=Length(str);
if(key='')
then begin
str_count_characters:=k;
exit;
end;
for i:=1 to k
do if(str[i]=key) then n:= n+1;
str_count_characters:=n;
end;
begin
writeln('Длина строки: ',str_count_characters(s));
writeln('Количество букв а: ',str_count_characters(s,'а'));
writeln('Слова: ',s.Split(' ')[1],', ',s.Split('ц')[0]+'тика');
end.
Поделитесь своими знаниями, ответьте на вопрос:
Выберите лишнее слово 1 клавиатура, сканер, принтер. 2монитор, графопостроитель, мышь. 3жесткий диск, flash-память, компакт-диск, процессор. 4принтер, акустические колонки, наушники, микрофон. 5системный блок, центральный процессор, оперативная память, жесткий диск, блок питания. 6системный блок, клавиатура, мышь, монитор, акустические колонки. 7видеокарта, карта расширения, звуковая карта, сетевая карта. enter, end, esc, delete. 8цветной принтер, лазерный принтер, матричный принтер, струйный принтер.