Question

помогите срочно!!!!!!!!!!!!!!!!!!!!

Answer 1

Ответ:

a) program a;

 var

   x: integer;

begin

   writeln('Введите x');

   readln(x);

 while x < 30 do

 begin

     x:=x*3;

   end;

 writeln(x);

end.

b) program b;

 var

   x: integer;

begin

   x:=5;

 while x < 25 do

 begin

     x:=x+4;

   end;

 writeln(x);

end.

Объяснение: