begin n1 := 0; n2 := 0; Write('Введите натуральное число: ');Read(n); repeat d := n mod 10; if odd(d) then Inc(n1) else Inc(n2); n := n div 10 until n = 0; Write('Нечетных ', n1, ', четных ', n2) end.
Const V: String = '01'; Function DecToN(A: Longint; D: Byte) : String; Begin If A > D - 1 then DecToN := DecToN(A div D, D) + V[(A mod D) + 1] else DecToN := V [A + 1]; end;
Function NToDec(A: String; D: Byte): Longint; Begin If Length(a) > 0 then NToDec := Pos(A [Length(A)], V) - 1 + D * NToDec(Copy (A, 1, Length(A) - 1), D) else NToDec := 0; end;
Var F: String; Begin Write('Входной файл Input.txt: '); Readln(F); If NToDec(F,2) mod 7 = 0 then Writeln('Выходной файл Output.txt: 0',DecToN(NToDec(F,2) div 7,2)) else Writeln('Выходной файл Output.txt: 0'); end.
var
n: longint;
d, n1, n2: integer;
begin
n1 := 0; n2 := 0;
Write('Введите натуральное число: ');Read(n);
repeat
d := n mod 10;
if odd(d) then Inc(n1) else Inc(n2);
n := n div 10
until n = 0;
Write('Нечетных ', n1, ', четных ', n2)
end.
Тестовое решение:
Введите натуральное число: 3534052
Нечетных 4, четных 3