Надо было написать бы еще среду программирования. Пишу на Qbasic
Дай фотку
тогда дам ответ это очень легко
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.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var b:array[1..10] of integer;
for var i:=1 to 10 do begin
b[i]:=i; Write(b[i],' ')
end
end.
<u><em>Результат:</em></u>
1 2 3 4 5 6 7 8 9 10
кажлор - это зашифрованное слова ложка