6. Нурдаулет отправил своему однокласснику SMS-coобщение обл. емом 20 480 бит. Перезвонив однокласснику, - id1396859220210614 от Lesya2601 14.06.2021 22:41

Question

Информатика: 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

Lesya2601 · Accepted Answer

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.

MOGZ ответил