Билет №12(1,3)

1.Сколько существует двухзначных чисел, у которых цифра десятков больше цифры единиц? Выведите эти числа.

program abc
integer a,b,k,c 
k=0
do i=10,99
  a=i/10
  b=mod(i,10)
     if (a > b) then
         c = i 
            write(*,*)c         // вывод двузнач чисел удовлет условию
               k=k+1       
                 end if 
                   end do   
            write(*,*)k   //кол во двузнач чисел удовлет условию
end program abc

3.Дана символьная строка, содержащая русские буквы, цифры и пробелы. Написать строку, удалив из нее все цифры и лишние пробелы.

#include <iostream>

#include <string>

using namespace std;

int main()
{
    setlocale(LC_ALL, "RU");
    string str, buff = "";
    getline(cin, str);
    for (int i = 1; i <= str.length(); i++) 
    {
        if ((str[i] != ' ') && (str[i] != '0') && (str[i] != '1') && (str[i] != '2')
            && (str[i] != '3') && (str[i] != '4') && (str[i] != '5') && (str[i] != '6')
            && (str[i] != '7') && (str[i] != '8') && (str[i] != '9')) cout << str[i];
    };

    cout << endl;
    system("PAUSE");
    return 0;
}