2. нужно только написать программу на языке pascal

Назар19 Назар19    2   22.05.2019 19:08    1

Ответы
Admiralchik29 Admiralchik29  18.06.2020 10:52

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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика