Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C/C++: Общие вопросы > Помогите пожалуйста с исходником. Вот кусочек моей

Автор: ZaikaSweta 20.6.2015, 22:46

Program S9;
Var
   s:String;
   i,k:Integer;

Begin
    ReadLn(s);
    For i:=1 To Length(s) Do
        If (s[i] = ' ') And ((s[i+1] = 'a') Or (s[i+1] = 'A')) Then
            Inc(k);
    WriteLn('Kol = ',k);
    ReadLn;
End.

Автор: planetoxod 22.6.2015, 12:39

Begin
ReadLn(s);
s:=s+'9';

Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Pomogite-pozhaluysta-s-iskhodnikom-Vot-kusochek-moyey-id5585c373ae2015ca338b4567#findElement_E7045_5587d7e8ae20157414baa130_0