Найдите количество всех:а)двузначных чисел;б)двузначных чисел,состоящих из разных цифр;в)двузначных чисел,сумма цифр которых больше 16;г)двузначных чисел,произведение цифр которых меньше 2.
Найдите количество всех:
а)двузначных чисел;
б)двузначных чисел,состоящих из разных цифр;
в)двузначных чисел,сумма цифр которых больше 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.
Не нашли ответ?
Похожие вопросы