1)
var s1,s2,s3,s4:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
WriteLn('s1 '+s1);
WriteLn('s2 '+s2);
WriteLn('s3 '+s3);
end.
2)
var s1,s2,s3,s4,s5:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
s5:=s1+Copy(s2,1,1)+'.'+Copy(s3,1,1)+'.';
WriteLn(s5);
end.
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>
MC (сокращение от английского Memory Clear (Очистить память)) - кнопка означает, что данный сотрутся (удаляться) из ячейки памяти калькулятора.
То-есть предыдущее вычисления забудутся калькулятором. Это все равно что "очистить кэш" из смартфонов.
Я надеюсь, что Вам помог!
Получится слово вторник.
<span>insert - это вставка одной строки в другую начиная отсчёт с начала слова,мы вставили s1 в строку s в 4 по счёту место,получилось торникг,дальше мы строку s2 вставляем в строку s на 1 место по счёту и получаем слово вторникг,дальше мы операцией delete удаляем 8 по счёту букву то есть букву г,вот так вот получаем слово вторник.</span>