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

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

Задать свой вопрос
1 ответ

program raf105;

var x,y: integer;

begin

x:= 13;

y:= 2;

while y lt; 12 do

if ylt;=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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт