Напишите программу,которая соединяет четыре введенных слова в однy строку и выводит их три раза, причём в первой строке ставится в конце ? , во второй а в третьей pascal.
Program p1; uses crt; var s,s2,s3:string; i,a:integer; begin read(s); for i:=1 to 4 do begin a:=Pos(' ',s); s2:=Copy(s,1,a-1); delete(s,1,a); s3:=s3+s2; end; s3:=s3+s; for i:=1 to 3 do begin s3:=s3+'?'; writeln(s3); end; end.
uses crt;
var s,s2,s3:string;
i,a:integer;
begin
read(s);
for i:=1 to 4 do begin
a:=Pos(' ',s);
s2:=Copy(s,1,a-1);
delete(s,1,a);
s3:=s3+s2;
end;
s3:=s3+s;
for i:=1 to 3 do begin
s3:=s3+'?';
writeln(s3);
end;
end.