Дано слово ....

Тема в разделе "Информатика", создана пользователем Другая, 12 фев 2010.

  1. Другая

    Другая New Member

    Дано слово . Добавить к нему вначале и конце столько звездочек , сколько букв в этом слове.
     
    Другая, 12 фев 2010
    #1
  2. smartproxy

    smartproxy New Member

    var i:integer;
    var slovo:string;
    begin
      write('Vvedite slovo: ');
      readln(slovo);
       for i:=1 to length(slovo) do
         slovo:='*'+slovo+'*';
      writeln(slovo);
      readln;
    end.
     
    smartproxy, 12 фев 2010
    #2

Поделиться этой страницей

Наша группа