Дана строка содержащая любые символы кроме русских букв. Написать функцию, которая в заданной строке находит количество больших и маленьких согласных английских букв. Использовать заголовок
Var a,p,n,i:integer; begin p := 0; n := 0; for i := 1 to 15 do begin read(a); if a mod 3 = 0 then if a > 0 then p := p + 1 else if a < 0 then n := n + 1 end; if p > n then writeln('Положительных') else if p < n then writeln('Отрицательных') else writeln('Одинаково') end.
{вариант "как-то посложнее"}
var a,i,s:integer; begin s := 0; for i := 1 to 15 do begin read(a); s := s + ord(a mod 3 = 0) * (ord(a > 0) - ord(a < 0)) end; if s > 0 then writeln('Положительных') else if s < 0 then writeln('Отрицательных') else writeln('Одинаково') end.
#include <conio.h>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
const int N=7;
int A[N];
cout << "Введите массив, состоящий из " << N << " элементов:\n";
for (int i=0; i<N; i++)
cin >> A[i];
cout << "Массив до - ";
for (int i=0; i<N; i++)
{
cout << A[i] << " ";
if (A[i]*A[i] < 25) A[i] *= 2;
}
cout << "\nМассив после - ";
for (int i=0; i<N; i++)
cout << A[i] << " ";
_getch();
return 0;
}
Microsft Visual C++ 2010