Как сделать такой текст в паскале?
(Выстроить пирамидкой и зеркально отразить)
Слово Геленджик
Приложения:
Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
var n:=s.Length;
for var i:=n downto 1 do
Writeln((i-1)*' '+s[i:n+1].Inverse+s[i:n+1])
end.
Пример
> Геленджик
кк
киик
кижжик
киждджик
киждннджик
кижднеенджик
кижднелленджик
кижднелееленджик
кижднелеГГеленджик
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
var n:=s.Length;
for var i:=n downto 1 do
Writeln((i-1)*' '+s[i:n+1].Inverse+s[i:n+1])
end.
Пример
> Геленджик
кк
киик
кижжик
киждджик
киждннджик
кижднеенджик
кижднелленджик
кижднелееленджик
кижднелеГГеленджик
Приложения:
Ответ дал:
0
var s:string;
l,i,j:integer;
begin
s:='Геленджик';
l:=length(s);
for i:=1 to l do
begin
write(' ':l-i+1);
for j:=1 to i do write(s[l-j+1]);
for j:=i downto 1 do write(s[l-j+1]);
writeln;
end;
end.
Результат:
кк
киик
кижжик
киждджик
киждннджик
кижднеенджик
кижднелленджик
кижднелееленджик
кижднелеГГеленджик
l,i,j:integer;
begin
s:='Геленджик';
l:=length(s);
for i:=1 to l do
begin
write(' ':l-i+1);
for j:=1 to i do write(s[l-j+1]);
for j:=i downto 1 do write(s[l-j+1]);
writeln;
end;
end.
Результат:
кк
киик
кижжик
киждджик
киждннджик
кижднеенджик
кижднелленджик
кижднелееленджик
кижднелеГГеленджик
Приложения:
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад