profile
Опубликовано 5 лет назад по предмету Информатика от Саюри123456

Паскаль. Дана строка N символов. Вывести все слова с удвоенными буквами

  1. Ответ
    Ответ дан Аккаунт удален
    var
      n,i:integer;
      s,t:string;
      f:boolean;
    begin
    readln(s);
    n:=length(s);
    f:=false; 
    for i:=2 to n do
        begin
        t:=t+s[i];
        if s[i]=s[i-1] then f:=true;
        if (s[i]=' ') or (i=n) then
           begin
           if f then writeln(t);
           t:='';
           f:=false;
           end
        end;
    end.
Самые новые вопросы
Носкова Анастасия
Другие предметы - 5 лет назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 5 лет назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 5 лет назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 5 лет назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 5 лет назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.