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

1

Ответы и объяснения

2014-02-06T15:37:49+04:00
var a:array [1..10] of integer;
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.