Найди A, B, C, D, если изначально:A=2,B=8,C)4,D=18.
ответ:A=?;B=?;C=?;D=?.​

A=2, B=2, C=8, D=4

Объяснение:

A=2, B=8, C=4, D=18.

D=C (4)

C=B (8)

B=A (2)

В итоге A=2, B=2, C=8, D=4

  writeln(x) вот этой! потому что если взять  в ковычки выведет х

var d,i: integer;

s: string;

begin

  read(d);

  s: =str(d);

  for i: = 1 to length(s) do

        if int(s[i]) mod 2=0 then

              writeln(s[i]);

end.