Дано целое число n (1 ≤ n ≤ 99), определяющее возраст человека (в годах). для этого числа напечатать фразу «мне n лет», учитывая при этом, что при некоторых значениях n слово «лет» надо заменить на слово «год» или «года». завтра пробный гиа, !

Var n: integer; begin readln(n); if (n mod 10> =5)or(n mod 10=0)  then writeln('мне  ',n,'   лет'); if n mod 10=1  then  writeln('мне  ',n,'   год'); if (n mod 10> 1)and(n mod 10< 5) then  writeln('мне  ',n,'   года'); end.

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

 

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of                 1 : write ( 'на дереве сидела ' ,n , ' ворона' );                 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' );                 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' );                 end else write ( 'ветка обломилась! ' ); end; readln; end.

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41