Помогите пожалуйста Составить программу, которая считывает слово, выводит буквы, стоящие...

Question

Помогите пожалуйста
Составить программу, которая считывает слово, выводит буквы, стоящие под четными номерами

Comments

паскаль?

---

да

---

слово сам вводишь? или он берет его из файла?

---

сам водишь

---

ооок, давай попробую

---

не могу решение написать)

---

удали ненужные ответы

---

Всё проверяй)

Answer 1

Program Rick_and_Morty;
var s:string;
    x,i:integer;

Begin
write('введите слово: ');
readln (s); //вводим s

x:=length(s); //количество букв в s

write('ответ: ');

for i:=1 to x do //цикл от 1 до x
begin
if i mod 2 = 0 then //если i четное то
write(s[i]); //выводим номер четного элемента
end;

writeln('');
writeln('конец');

end.

Comments

Спасибо большое

Answer 2

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  Range(2,s.Length,2).Select(i->s[i]).Println
end.

Пример
Информатика
номтк