Помогите составить программу в паскале которая рисует букву К, Ю, М Заранее спасибо! Выберу лучший !

1

Ответы и объяснения

2014-03-17T15:43:58+00:00
Var s,s1:string; p:byte; 
begin readln(s); for p:=length(s) downto 1 do s1:=s1+s[p]; 
writeln(s1); end.