Задать вопрос
19 марта, 17:21

Написать программу на Pascal ABC. Дано

предложение. Вывести строку в обратном порядке. Вывести столбиком все его буквы

"и", стоящие на четных местах.

+2
Ответы (1)
  1. 19 марта, 19:50
    0
    Var

    str : string;

    i, count : integer;

    begin

    {часть 1 - обратный порядок}

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

    readln (str) ;

    write ('Результат: ') ;

    for i : = length (str) downto 1 do

    write (str[i]) ;

    {часть 2 - считаем "и"}

    count : = 0;

    for i : = 1 to length (str) do

    if (str[i] = 'и') and (i mod 2 = 0) then

    count : = count + 1;

    writeln; {переходим на следующую строку}

    for i : = 1 to count do

    writeln ('и') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Написать программу на Pascal ABC. Дано предложение. Вывести строку в обратном порядке. Вывести столбиком все его буквы "и", стоящие на ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы