Var n, c: integer; b: boolean; begin write('Введите число: '); readln(n); writeln('Цифра справа в 1..3: ', (n mod 10) in [1..3]); while (n>0) do begin c := c + 1 - (n mod 2) ; b := (n mod 10) in [1..3]; n := n div 10; end; writeln('Цифра слева в 1..3: ', b); writeln('Четных цифр ', c); end.
b: boolean;
begin
write('Введите число: ');
readln(n);
writeln('Цифра справа в 1..3: ', (n mod 10) in [1..3]);
while (n>0) do begin
c := c + 1 - (n mod 2) ;
b := (n mod 10) in [1..3];
n := n div 10;
end;
writeln('Цифра слева в 1..3: ', b);
writeln('Четных цифр ', c);
end.