Задать вопрос
9 ноября, 17:07

Здравствуйте,

помогите с задачей на PascalABC.

Найти и вывести все шипящие буквы (без повторений), которые встретились в самом длинном слове.

+5
Ответы (1)
  1. 9 ноября, 20:09
    0
    var

    a: array [1 ... 4] of char;

    s: string;

    i: byte : = 1;

    begin

    readln (s) ;

    while (i < length (s)) do

    begin

    if ((not (s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos (s[i], s) > i)) then

    delete (s, i, 1)

    else

    i + = 1;

    end;

    writeln (s) ;

    end.

    Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Здравствуйте, помогите с задачей на PascalABC. Найти и вывести все шипящие буквы (без повторений), которые встретились в самом длинном ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Задание: 1) Перечислить виды циклов. 2) Конструкция цикла с параметром на языке программирования Pascal. 3) Известно ли число повторений в цикле с параметром? 4) Если известно, то указать формулу, по которой можно определить число повторений.
Ответы (1)
Программа в Pascal ABC. С клавиатуры вводится два слова. Надо вывести на экран те буквы, которые есть и в одном и во втором слове (печатать буквы без повторений)
Ответы (1)
Написать программы на Pascal ABC: 1) Вывести на экран четырехзначные числа без повторений цифр. 2) Вывести на экран произведение последовательности чисел, начиная с 1. Количество этих чисел заносится руками.
Ответы (1)
Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число.
Ответы (1)
На языке Паскаль, определить кол-во повторений, оператора повторений в следующей программе. For i: = - 17 downto - 1 do write ('student') ;
Ответы (1)