с Задано рядок, що містить електронну адресу користувача. Переконатися, що ця адреса є коректною (наявність символа @ і крапки, а також наявність принаймні двох символів після останньої крапки)

(Написати програму)

#include <iostream>

using namespace std;

int amountNum(int a)

{

   int count = 0;

   while(a > 0)

   {

       a /= 10;

       count++;

   }

   return count;

}

bool check(int a)

{

   while(a > 0)

   {

       int k = a % 10;

       if(k % 2 != 0)

           return false;

       a /= 10;

   }

   return true;

}

int main()

{

   int num;

   cin >> num;

   if(amountNum(num) != 3)

   {

       cout << "Incorrect input";

       return 0;

   }

   if(check(num))

       cout << "YES";

   else

       cout << "NO";

}

program Test;

const

 L = ['а'..'я', 'А'..'Я'];

 N = ['0'..'9'];

var

 f: Text;

 s: AnsiString;

 cl, cn, i: Integer;

begin

 Assign (f, 'text.txt');  // здесь название файла

 Reset (f);

 cl := 0;

 cn := 0;

 while not Eof (f) do begin

   ReadLn (f, s);

   for i := 1 to Length (s) do begin

     if s [i] in L then

       Inc (cl)

     else if s [i] in N then

       Inc (cn);

   end;

 end;

 Close (f);

 WriteLn ('Русских букв: ', cl);

 WriteLn ('Цифр: ', cn);

 ReadLn;

end.

Объяснение:

текстовый файл должен находиться в папке с программой, иначе укажите полный путь к нему. Кодировка файла ANSI - кириллица 1251 или OEM -русский 866.