Перечислите все разъёмы, которые на картинки

смотри схему                                                  

на паскале:

var

n,s,p: integer;

begin

read(n);

p: =n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n> 0 do

begin

n: =n div 10;

s: =s+1;

end;

writeln ('количество цифр в числе', s);

end.

var a,b,c,d: integer;

begin

  read(a,b,c,d);

  if (a*b*c*d mod 3 = 0) then

        writeln("pravda")

  else writeln("nepravda");

end.

0.27 - 0.09 = 0.18

или

27/100 - 9/100 = 18/100