2*2*2*2*2*2*2*2 =255
dsffgsdfgs d
Программа:
//Решение в 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.
Поделитесь своими знаниями, ответьте на вопрос:
Ваквариуме плавала рыбка, каждый день число рыбок удваивали. сколько рыбок стало в аквариуме к 8 дню? ?