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>
1->
2->
3=
4-<
5->
Самому надо думать,а не тут вопросы задавать.<span />
Растровая Графика - это технология представления изображений
Изображение - это изображение представленное растровой графикой
Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.