<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadlnString.ToLower.Contains('кот') then Print('МЯУ')
else Print('ГАВ')
end.
<h2>Примеры</h2>
Извините, пожалуйста, вы не подскажете, который час?
МЯУ
Кто я? кто
ГАВ
#include <iostream>
using namespace std;
int main() {
int n;
cin >> n;
int *arr = new int[n];
for (int i = 0; i < n; i++) {
cin >> arr[i];
}
int max = -1;
int min = -1;
for (int i = 1; i < n; i++) {
if (arr[i] > 0 && arr[i] % 2 == 0) {
if (min == -1) {
min = arr[i];
}
if (max < arr[i]) {
max = arr[i];
}
if (min > arr[i]) {
min = arr[i];
}
}
}
cout << min << " " << max;
system("pause");
return 0;}
16000 Герц * 8 бит * 2 канала * 10 сек = 2560000 бит
2560000 бит / 8 =320000 байт
320000 байт / 1024 = 312,5 Кбайт