В Worde:
Клавишей "Enter" в конце строки, чтобы создать новую строку.
Клавишей "Backspace" в конце пустой строки, чтобы удалить строку.
Клавишей "Delete" в начале пустой строки, чтобы удалить строку.
Сестемный блок состоит из нескольких основных деталей
1)Материнская плата(на ней размещаются детали которые вконце буду маркеровать как М)
2)Процессор мозг компьютера(М)
3)Блок питания питает весь компьютер током
4) жесткий диск накопитель информации(м)
5) Озу запоминает все действия на ПК
6) Видеокарта думаю все знают для чего она нужна) М
10 переведи в 4чную систему счисления, сосчитай кол-во разрядов и вот ответ, но т.к. ты ленивый, то 10 это 22, 2 разряда, значит нажимать нужно 2 клавиши, если нажимать 2 клавиши, то можно 15 разных символов ввести
It is a quarter past ten 10:45
it is twenty minutes to twelve 11:40
it is a quarter to twelve 11:45
it is ten minutes to four p.m 15:50
Var
s : String;
i : Integer;
begin
Writeln('Введите строку:');
Readln(s);
<span> i:= 0;
</span><span>
while pos(')', s) <> 0 do
</span> begin
<span> i := i + pos(')', s) - pos('(', s) + 1;
</span><span> delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
</span> end;
<span>
Writeln(s);
</span> Writeln(i);<span>
Readln;
</span><span>end.
2)
var
s : String;
</span> <span>i, e : Integer;
</span> <span>flag : Boolean;
begin
Writeln('Введите строку:');
Readln(s);
<span>
</span></span> <span>e := 0;
</span> <span>flag := False;
for i := 1 to Length(s) do
</span> <span>begin
</span> <span>if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then flag := True;
</span> <span>if flag then Write(s[i]);
</span> <span>if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
</span> <span>begin
</span> <span>flag := False;
</span> <span>inc(e);
</span> <span> Writeln;
</span> <span>end;<span>
</span></span> <span>end;
<span> Writeln(e);
</span><span> Readln;
</span>end.</span>
