Регистрация
SvetlanaAstanovka
Есть ответ 👍

Дана строка. Указать те слова, которые содержат хотя бы одну букву «к». (программа Паскаль)

116
301
Посмотреть ответы 2

Ответы на вопрос:

detsadraduga10
detsadraduga10
4,4(56 оценок)
Var s,s1:string;
Begin
    write('Строка: ');readln(s);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      if Pos('k',s1)>0 then write(s1,' ');
      Delete(s,1,Pos(' ',s));
    End;
End.
Mollи
Mollи
4,6(50 оценок)

Бәріңе!

Бәріңе!

Бәріңе!

Жасыңа да кәріңе!

Кімге қан керек?

Ішуге емес, дәріге...

Мен - донормын.

Шипа болар қаным бар.

Қабылдаңдар,алындар.

Менің жылы қанымның

Қасиетін таныңдар.

Жоқ!

Ақшаға сатпаймын!

Аурулар алдында,

Борышымды ақтаймын.

Өмір беріп өзгеге,

Өмірімді сақтаймын!

Мен - донормын.

Таза қан.

Сақ боласыз жазадан,

Сақ боласыз мазадан,

Қабылдаңыз?!

Көп берем де, аз алам,

Сіздегі сансыз түтікпен

Менің қаным өтеді,

Маған сол да жетеді!

Сіздегі жылы жүректе

Менің қаным соғады.

Маған сол да болады!

Сіздің мидың, біздің қан

Болып жатса қорегі.

Басқаның не керегі?!

Бәріңе!

Бәріңе!

Бәріңе!

Жасыңа да, кәріңе!

Кімге қан керек?

Кімге қан керек?

Кімге қан керек?

Ішуге емес!

Дәріге!..

Популярно: Другие предметы