Информатика, вопрос задал Раиля004 , 7 лет назад

Помогите пожалуйста, упражнение 2. Нужно только написать программу на языке Pascal

Приложения:

Ответы на вопрос

Ответил raf1O5
0

program raf105;

var x,y: integer;

begin

x:= 13;

y:= 2;

while y < 12 do

if y<=x

 then begin

   x:= x-3;

   y:= y*2;

 end

 else begin

   y:= y-3;

   x:= x*y;

 end;

writeln(x);

end.

PascalABC 3.4.2

Новые вопросы