• Дано слово s1,получить слово s2,образованное буквами слова s1,стоящее на четных местах

Ответы 1

  • var

      s1, s2: string;

      i: integer;

     

    begin

      s2:= '';  //Присваиваем строке начальное пустое значение

      writeln('Введите слово s1');

      readln(s1);

      for i:= 1 to length(s1) do  //length(s1) - длина строки s1

        if i mod 2 = 0 then s2:= s2 + s1[i];

      writeln('Полученное слово:  ', s2);

    end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years