Программа на Pascal
var
Age : integer;
begin
Repeat
Write('Введите Ваш возраст: ');
Readln(Age);
until Age in [1..99];
if Age in [10..20] then Writeln('Мне ', Age, ' лет')
else
case Age mod 10 of
1: Writeln('Мне ', Age, ' год');
2, 3, 4 : Writeln('Мне ', Age, ' года');
0, 5..9 : Writeln('Мне ', Age, ' лет');
end;
end.
программа на C++
#include
using namespace std;
int main()
{
setlocale(LC_ALL,"rus");
int k;
cin>>k;
if(k >0 && k<100) </span>
cout<<"Мне "<< k <<" лет"; </span>
system("pause >> void");
}