Question

помогите пж с 6.48и 6.49 35 баллов дам​

Answer 1

Получи 5(6.48) я верю в тебя (кст где ты учишься)

var

 n,k,s,a,b,l,x,y,m,n1:integer;

Begin

 readln(n,k,b,x,y,l,a,m,n1);

 Write('а. ');

 

 if(n mod 2 = 0) then

   begin

     a := n;

     while a > 0 do

       begin

         s := s + a mod 10;

         a := a div 10;

       end;

       if(s > k) then writeln('True') else writeln('False');

   end

   else writeln('False');

 

 a := n;

 s := 0;

 Write('б. ');

 

 while(a > 10) do

 begin

   a := a div 10;

   inc(s);

 end;

 if(s mod 2 = 0) and (n < b) then writeln('True') else writeln('False');

 

 write('в. ');

 

 a:= n;

 

 while a>10 do

 a:=a div 10;

 

 if(a = x)and(n mod 10 = y) then writeln('True') else writeln('False');

 

 write('г. ');

 

 a:=n;

 s := 1;

 

  while a > 0 do begin

       s := s * (a mod 10);

       a := a div 10;

   end;

  if(s < a) and (n mod b = 0) then writeln('True') else writeln('False');

   

 write('д. ');

 

 a := n;

 s := 0;

 while a > 0 do begin

       s := s + a mod 10;

       a := a div 10;

   end;

 if(s > m)and(n mod n1 = 0) then writeln('True') else writeln('False');

 

End.