6. Нурдаулет отправил своему однокласснику SMS-coобщение обл. емом 20 480 бит. Перезвонив однокласснику, Нурдаулет узнал, что сво- бодного места для приема информации осталось только 3, 125 Кбайт. Прочтет ли сообщение одноклассник? А) Да, так как 20 480 бит - 2, 5 Кбайт, а свободного места-3, 125 Кбайт. В) Да, так как 2560 байт - 2, 5 Кбайт, а свободного места-256 000 байт. С) Нет, так как 20 480 бит- 2, 5 Кбайт, а свободного места-3200 байт. D) Hет, так как 20 480 бит - 2, 5 Кбайт, а свободного места-32 000 байт. E) Нет, так как 20 480 бит 3, 5 Кбайт, а свободного места-3, 125 байт.

будет ответ С

Объяснение:

Я сама так сделала должно быть правильным

1)

Var S123,S2,S3,S132:string;
i:integer;
Begin
WriteLn('Введите строку');
ReadLn(S123);
i:=1;
While S123[i]<>' ' do
   i:=i+1;
i:=i+1;
S2:='';
While S123[i]<>' ' do
   Begin
   S2:=S2+S123[i];
   i:=i+1
   End;
i:=i+1;
S3:='';
While i<=Length(S123) do
   Begin
   S3:=S3+S123[i];
   i:=i+1
   End;
S132:='';
i:=1;
While S123[i]<>' ' do
   Begin
   S132:=S132+S123[i];
   i:=i+1;
   End;
S132:=S132+' ';
i:=1;
While i<=Length(S3) do
   Begin
   S132:=S132+S3[i];
   i:=i+1;
   End;
S132:=S132+' ';
i:=1;
While i<=Length(S2) do
   Begin
   S132:=S132+S2[i];
   i:=i+1;
   End;
WriteLn(S132)
End.

Пример:

Введите строку
123 456 789
123 789 456

2)

Var S:string;
i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
i:=1;
While S[i]<>'(' do i:=i+1;
i:=i+1;
While S[i]<>')' do
   Begin
   Write(S[i]);
   i:=i+1
   End;
End.

Пример:
Введите строку: 6543654(000)65431
000

3)

Var
S:string;
i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S) do
    if S[i] = ' ' then S[i]:='!';
WriteLn(S)
End.

Пример:
Введите строку: С клавиатуры вводится строка. Заменить в ней все пробелы на восклицательные знаки.
С!клавиатуры!вводится!строка.!Заменить!в!ней!все!пробелы!на!восклицательные!знаки.!

Var
S:string;
k,i:integer;
Begin
k:=0;
WriteLn('Введите строку');
ReadLn(S);
For i:= 1 to Length(S) do
    if S[i] = '.' then k:=k+1;
WriteLn('Количество точек в строке: ',k)
End.

Var
S,S1:string;
i:integer;
Begin
WriteLn('Введите строку');
ReadLn(S);
S1:='';
For i:= 1 to Length(S)-1 do
    Begin
    if S[i] <> ' ' then S1:=S1+S[i];
    if (S[i] = ' ')and(S[i+1] <> ' ') then S1:=S1+S[i];
    End;
S:='';
if S1[1] = ' ' then
   For i:= 2 to Length(S1) do
       S:=S+S1[i]
else
   For i:= 1 to Length(S1) do
       S:=S+S1[i];
WriteLn(S);
End.