program z_string;
uses crt;
const Letters = ['a'..'z','A'..'Z','а'..'я','А'..'Я'];
var StringS, Symbol :string;
CounterI, Number:byte;
begin
clrscr;
writeln('Введите строку текста');
readln(StringS);
Number := 0;
Symbol := '';
for CounterI := 1 to length(StringS) do
begin
if (StringS[CounterI] in Letters) and (Symbol = '') then
Symbol := StringS[CounterI];
if (not(StringS[CounterI] in Letters)) and (CounterI <> 1) then
begin
if StringS[Counteri - 1] = Symbol then
inc(Number);
Symbol := '';
end;
if (CounterI = length(StringS)) and (StringS[CounterI] = Symbol) then
inc(Number);
end;
writeln;
writeln('Количество слов начинающихся и заканчивающихся одной и той же буквой ', Number);
readln;
end.
ахах тоже составляли такую,прикольная;)
2. с). Во-первых, частота измеряется в герцах, а не в каких-то битах или байтах - это мы знаем еще из физики. Во-вторых, дискретизация - это пересчет уровня сигнала в некие фиксированные уровни, т.е. он связан с измерением величины сигнала.
3. б) Есть понятие "иерархическая файловая система", когда файлы одного уровня "вкладываются" в папку вышележащего уровня и это вложение многократно повторяется. Ближе всего к этому понятию ответ б)
4. д) Управление связано с передачей информации управляемому объекту. Но чтобы управлять, надо получать от этого объекта информацию и каким-то образом её обрабатывать, принимая некоторые решения. Хранить эту информацию надо лишь короткое время. Для примера: управление автомобилем. Водитель перед перекрестком смотрит по сторонам и принимает решение об управлении автомобилем. Но, проехав перекресток, он уже не думает о том, как его проезжал (если не брать в расчет присущие человеку эмоции).