Program n_1;
var n,count:integer;
Begin
Write('введите натуральное полож.число n -');
read(n);
count:=0;
While n>0 do
Begin
n:=n div 10;
count:=count+1;
end;
write(count);
End.
Попробуй эту программу
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Ответ:
513:8=64(1 остаток)
64:8=8(0 остаток)
8:8=1(0 остаток)
1:8=0(1 остаток)
получаем в обратном порядке от деления остатки 1001, т.е. 513(10)=1001(8)
Объяснение:
12022, 1222, 989, 90899, 9000
Пєро: 1) Пєро загадав 9, 2)9+1=10, 3)10*3=30, 4)30/3=10, 5)10-4=6