Question

Задание номер 6 очень срочно завтра сдавать учителю ,надеюсь поможете

Answer 1

Ответ:

Объяснение:

program x2x3;

var

   x2, x3, x4 : integer;

 

begin

       repeat

              Write('input 4-digit x: ');

              ReadLn(x4);

       until (x4 > 999) and (x4 < 10000);

       x3 := x4 mod 1000 div 100;

       x2 := x4 mod 1000 mod 100 div 10;

       writeln ('x2 = ', x2, ' x3= ', x3, ' x2*x3= ',x2*x3);

       

end.

6.

program AinProgress;

var

   a, n, k : integer;

begin

   Write('input n: ');

   ReadLn(n);

   a:= 2;

   for k:=2 to n do a:=k*a+3;

   writeln ('a = ', a);

end.