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

  • 2. Составьте программу, определяющую, на какую букву начинается третье слово в предложении. 3*. Составьте программу, определяющую длину последнего слова в предложении.

    Желателно в Qbasic

Ответы 1

  • 2.

    Program Pr1;uses crt;var stroka:string; i,a,b:integer;Beginclrscr;readln(stroka);b:=1;if stroka[b]<>' ' then a:=1else while stroka[b]=' ' do b:=b+1;for i:=1 to length(stroka) do begin if (stroka[i]=' ') and (stroka[i+1]<>' ') then a:=a+1; if a=3 then begin writeln(stroka[i+1]); break; end; end;end.

     

    Ой....тебе в QBasic...извиняй

    • Автор:

      hulkqgin
    • 6 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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