• Pascal ABC - язык. Помогите пожалуйста.

    Дана строка символов. Группы символов, разделенные пробелами(одним или несколькими) и не содержащие пробелов внутри себя, будем называть словом
    а)подсчитать количество слов, которые заканчиваются на букву "а"
    б) переставить местами первое и последнее слова

Ответы 5

  • 1ая не работает. И я не пояснил... Это должно быть все в одном коде,одно решение на 2 пункта...
  • Что пишет Pascal?
  • Где написано что это всё должно быть на 2 пункта в вопросе?
    • Автор:

      ali45
    • 6 лет назад
    • 0
  • Это примечание отсутствует в вопросе и значит мой ответ полностью совпадает с вашим вопросом.
  • а) var k: String;sum,i: Integer;beginwriteln('Введите текст');readln(k);for i:=1 to length(k) doif k[i]='а' then Inc(sum);writeln('Кол-во: ',sum);end.б) Var l,gg,kk:string;i:byte;Beginwriteln('Введите текст');readln(l);gg:=Copy(l,1,Pos(' ',l)-1);Delete(l,1,Pos(' ',l));kk:='';For i:=Length(l) downto 1 doif l[i]<>' ' then kk:=l[i]+kk else break;Delete(l,i,Length(kk));l:=kk+' '+l+' '+gg;writeln(l);End.
  • Добавить свой ответ

Войти через Google

или

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

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

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