// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
<u><em>Тестовое решение:</em></u>
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2
Vit*.txt
Неужели так сложно?
//Не знаю, что Вы хотели сделать этим for(a<=b...
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int a,b=0;
cin>>a>>b;
for(int i=a;i<=b;i++)
cout<<i<<endl;
for(int i=b;i<=a;i++)
cout<<i<<endl;
cin.get();
cin.get();
return 0;
}
Пример ввода 1:
5
1
Пример вывода 1:
1
2
3
4
5
Пример ввода 2:
1
5
Пример вывода 2:
1
2
3
4
5