Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
<span>end.</span>
256/16=16 (ост.0)
16/16=<u>1</u> (ост 0)
ответ 256=100 (ответ получается из остатков в обратном порядке, начиная с 1)
400/16=25 (ост.0)
25/16=<u>1 </u>(ост.9)
ответ 400=190
1234/16=77 (ост 2)
77/16=<u>4 </u>(ост 13 - это D)
ответ 1234=4D2
2012/16=125 (ост 12 - это C)
125/16=<u>7 </u>(ост 13 - это D)
ответ 2012=7DС
Program n_1;
uses math;
var a:array [1..6] of integer; i: integer;
begin
for i:=1 to 6 do begin read (a[i]); a[i]:=a[i]*2; end;
writeln;
for i:=1 to 6 do write(a[i], ' ');
end.