Найдите количество всех:

а) двузначных чисел;

б) двузначных чисел, состоящих из разных цифр;

в) двузначных чисел, сумма цифр которых больше 16;

г) двузначных чисел, произведение цифр которых меньше 2.

1 var a:array [1 ... 10] of integer;

2 i, k, l:integer;

3

4 begin

5 randomize;

6 for i:=1 to 10 do

7 a[i]:=random (50) - 10;

8 for i:=1 to 10 do

9 write (a[i],' ') ;

10 for i:=1 to 10 do

11

12 while a[i]>=10 do

13 begin

14 a[i]:=a[i] mod 10;

15 k:=k+1;

16 if k=1 then begin

17 l:=l+1;

18 k:=0;

19 end;

20 end;

21 writeln;

22 writeln (l) ;

23 readln;

24 end.