Версия для печати темы

Автор: Livi 9.10.2011 22:08

rogram nvm;
var
a				:array[1..100] of string;
i,j,k,x,b,f	 :integer;
begin													  
 for i:=1 to 3 do begin								 
writeln('vvedite ',i,' stroku');
readln(a[i]);
end;												   
k:=length(a[i]);
begin												 
 for i:=1 to 3 do begin							
 f:=0;
	for j:=1 to length(a[i]) do  begin		  
	x:=1;
	 while x<length(a[i])-f do begin		 
		   x:=x+1;
			write(' ');
			  end;						   
 writeln(a[i][x]:3);
 f:=f+1;
		end;									
	 end;										  
   end;											   
		 readln;
end.								
 

-----------
Как вывести все 3 строки в одну через пробел?

Автор: Lapp 10.10.2011 8:12

Ты бы лучше сказал полное условие. Я не понял, что тебе нужно.
Перевернуть строки, что ли?

Автор: Livi 10.10.2011 23:33

Сейчас выводит строки так:
/
/
/
а надо - / / /