Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
Старый друг лучше новых двух
В паскале: Inc(n);
В С++: n++;
Var n, digit, ans : integer;
begin
read(n);
ans := 0;
while (n > 0) do begin
digit := n mod 10;
if ((digit = 1) or (digit = 3) or (digit = 9)) then
ans := ans + 1;
n := n div 10;
end;
writeln(ans);
<span>end.</span>