#include <iostream>

using namespace std;

int main()
{
 setlocale(LC_ALL, "RUSSIAN");
 string str1;
 int count=0;
 cout << "Программа подсчета количества букв \"к\" строке" << endl;
 str1 = "Строка";
 for (int i = 0; i < str1.length(); i++)
 if (str1[i] == 'к')
 count++;
 cout << "Буква встречается в строке " << count << " раз" << endl;
 system("pause");
}

0 0

4 года назад

Превратить одно слово в другое всякий раз заменяя по одной букве:ночь 4 слова

Schumacher [11]

Ночь, ноль, моль, боль .

0 0

4 года назад

Составить программу в pascal, которая проверяет, расставлены ли числа в порядке возрастания. Используя логическую переменную (bo

дмитрий211

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
var b:=ReadArrInteger(ReadInteger('n=')).Pairwise.All(t->t[0]<=t[1]);
b.Println;
end.

Примеры
n= 5
36 46 57 39 94
False

n= 7
9 11 23 64 79 120 500
True

0 0

4 года назад

С++, задание на фото.

justdenchik

Объяснение:

#include <iostream>

using namespace std;

int main(){

for(int i = 150; i <= 1500; ++i){

if(i % 3 != 0 && i % 5 != 0 && i % 11 != 0 && i % 13 != 0)

cout << i << endl;

}

return 0;

}

0 0

3 года назад