Задать вопрос Регистрация
Помочь другим

  • 1)Дано слово. Удалить из него все буквы "а".

    2)Дан текст. Переставить слова текста в обратном порядке.

Ответы 1

  • 1)

    var

    s,r:string;

    i:integer;

    begin

    readln(s);

    r:='';

    for i:=1 to length(s) do

    if s[i]<>'a' then r:=r+s[i];

    writeln(r);

    end.

    2)

    текст разделяем знаками препринания

    var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

    begin p := ' ,.!?;:-'; readln(s); k := 0; r := ''; for i := 1 to length(s) do begin f := 0; for j := 1 to length(p) do if s[i] = p[j] then f := 1; if f = 0 then r := r + s[i] else begin k := k + 1; t[k] := r; r := ''; end; if i=length(s) then begin k := k + 1; t[k] := r; end; end; for i := k downto 1 do write(t[i], ' ');end.

    • Автор:

      emely
    • 7 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years