Задать вопрос
27 апреля, 00:27

Дан текст. Вывести все буквы, которые находятся на нечётных позициях

+5
Ответы (1)
  1. 27 апреля, 01:54
    0
    Var s:string;

    i:integer;

    begin

    writeln ('Введите строку');

    readln (s);

    for i:=1 to length (s)

    do if i mod 2 = 1 then write (s[i]);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Дан текст. Вывести все буквы, которые находятся на нечётных позициях ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы