fork download 
  1. var
  2. t,i,j,l1,l2,c:integer;
  3. a,b:string;
  4. begin
  5. readln(t);
  6.  for i:=1 to t do
  7.  begin
  8.  	l1:=0;
  9.  	l2:=0;
  10.  	readln(a,b);
  11.  	l1:=l1+length(a);
  12.  	l2:=l2+length(b);
  13.  	if (l1>l2) then c:=c+l2;
  14.  	if (l1<l2) then c:=c+l1;
  15. 	if (l1=l2) then c:=c+l1;
  16. 	for j:=1 to c do
  17.       		if (l1 mod 2<>0) then write(a) else write(b);
  18.  end;
  19. end.
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin 
4
a bb
abs sfd
ewr w
wqeqweqweq eqweqwe
stdout 
Standard output is empty
https://ideone.com/k6LzL
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!