//Если надумаешь менять расположение файла, то не забудь поменять его также в коде
#include <iostream>
#include <fstream>
using namespace std;
int main()
{
const int ValueOfString = 10;
ofstream Writer;
Writer.open("C:\\Test\\First.txt", ios::out);
Writer « "Stroka1" « "\n";
Writer « "Stroka12" « "\n";
Writer « "Stroka133" « "\n";
Writer « "Stroka1444" « "\n";
Writer « "Stroka155" « "\n";
Writer « "Stroka16" « "\n";
Writer « "Stroka1" « "\n";
Writer « "Stroka17" « "\n";
Writer « "Stroka188" « "\n";
Writer « "Stroka1999" « "\n";
Writer.close();
ifstream Reader;
Reader.open("C:\\Test\\First.txt");
string Str[ValueOfString];
int NumInStr[ValueOfString] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
int counter = 0;
while (!Reader.eof())
{
Reader » Str[counter];
counter++;
}
Reader.close();
string Tmp;
int counter2 = 0;
for (int i = 0; i < ValueOfString; i++)
{
Tmp = Str[i];
for (int j = 0; j < Tmp.length(); j++)
{
if (Tmp[j] == '1' || Tmp[j] == '2' || Tmp[j] == '3' || Tmp[j] == '4' || Tmp[j] == '5' || Tmp[j] == '6' || Tmp[j] == '7' || Tmp[j] == '8' || Tmp[j] == '9')
counter2++;
}
NumInStr[i] = counter2;
counter2 = 0;
}
ofstream Writer2;
Writer2.open("C:\\Test\\Second.txt", ios::app);
Writer « "\n";
for (int k = 0; k < ValueOfString; k++)
Writer2 « "\nВ " « k + 1 « " строке: " « NumInStr[k] « " цифр";
Writer2.close();
cout « "Operation successfully completed!" « endl « endl;
return 0;
}
1. Обычный, 2. Жирный, 3. Курсив 4. Подчеркнутый, 5. Жирный и курсив, 6. жирный и подчеркнутый, 7.курсив и подчеркнутый
8. Курсив, жирный и подчеркнутый
Вариант программы без массива:
#include <iostream>
using namespace std;
int main() {
int n, a, k = 0;
cin >> n;
for (int i=0; i<n; i++) {
cin >> a;
if (a % 10 == 6) k++;
}
cout << k << "\n";
return 0;
}
Пример:
5
420
836
705
379
706
2
<h3>PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Conv(s: string): string;
begin
var d := s.ToCharArray;
var (i, found) := (d.High, False);
while i >= 1 do
if d[i] > d[i - 1] then
begin
found := True;
break
end
else i -= 1;
if found then
begin
s := s[:i];
var c := d[i - 1];
d := d[i - 1:];
d.Sort;
var j := d.IndexOf(c) + 1;
s += (d[j] + d?[:j] + d?[j + 1:]).JoinIntoString
end
else s := '-';
Result := s
end;
begin
var ms := Arr('1890', '83849', '126631', '146531', '32749972');
foreach var s in ms do
Conv(s).Println
end.
<h2>1908</h2><h2>83894</h2><h2>131266</h2><h2>151346</h2><h2>32772499</h2>
В заданном выражении скобка (¬x ∧ y ∧ z) будет равна 1 при следующих значениях переменных: x=0, y=1, z=1;
скобка (¬x ∧ ¬z) будет равна 1 при x=0, z=0.
Комбинацию значений 0, 1, 1 видим в последней строке таблицы, значит Перем.3 - это x; из второй строки определяем, что Перем. 2 - это z, следовательно, Перем.1 - это y.
Ответ: yzx