10. Напишите программку: "Склавиатуры вводится строчка из 2-ух слов. Вывести н

10. Напишите программку: "Склавиатуры вводится строчка из 2-ух слов. Вывести н экран: a) первую и заключительную буковкы второго слова; б) количество букв второго слова; в) количество глассных (a) в строке.все это обязано быть в одной программке

Задать свой вопрос
1 ответ
Var s: string;
    n,k: integer;
begin
   write('строчка: ');  readln(s);
   n:=pos(' ',s);
   if ngt;0 then 
   begin
     writeln('1-ая буковка второго слова: ',s[n+1]);
     writeln('заключительная буковка:  ',s[length(s)]);
     writeln('количество букв:  ',length(s)-n);
     k:=0; 
     for n:=1 to length(s) do 
     if s[n]='a' then k:=k+1;
     if kgt;0 then writeln('количество букв a: ',k)
     else writeln('в строке нет буковкы a');
   end
   else writeln('в строке одно слово');
end.



, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт