#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");
}
С=22 mod 22+(22 div 8 )=22 mod 24=92
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Transform(t->t<0?0:t); a.Println
end.
<u>Пример</u>
n= 13
39 11 37 -44 25 -26 -15 10 2 -15 31 -13 -18
39 11 37 0 25 0 0 10 2 0 31 0 0
var r:real;
begin
write ('Введите радиус окружности: ');
read(r);
writeln ('Диаметр равен: ', r*2:0:3);
writeln ('Длина окружности равна: ', 2*pi*r:0:3);
end.