Найдите количество всех:а)двузначных чисел;б)двузначных чисел,состоящих из разных...

Question

Найдите количество всех:
а)двузначных чисел;
б)двузначных чисел,состоящих из разных цифр;
в)двузначных чисел,сумма цифр которых больше 16;
г)двузначных чисел,произведение цифр которых меньше 2.

Answer 1

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.