Составьте программу в Pascal:Компьютер задаёт случайное двухзначное число Х, например...

Question

Составьте программу в Pascal:Компьютер задаёт случайное двухзначное число Х, например 39;Компьютер задаёт случайное однозначное число У, например 8;Необходимо получить новое трехзначное число Z, а именно 389Т.е.число У вписать в середину Х​

Comments

Нужно только провести эту операцию? Без ввода/вывода и генерации?

---

написать полностью программу

Answer 1

var x,y,z:integer;

begin

   randomize;

   x:=1;

   repeat x:=random(100) until x>9;

   y:=random(10);

   z:=(x div 10)*100+y*10+(x mod 10);

   writeln('x=', x);

   writeln('y=', y);

   writeln('z=', z);

end.

Answer 2

program raf105;

var x,y,z:integer;

begin

x:=random(10,99);

writeln('Компьютер выбрал число ',x);

y:=random(1,9);

writeln('Компьютер выбрал число ',y);

z:= x mod 10;

x:= (x-z)*10;

z:= (x+z)+y*10;

writeln('Компьютер переместил второе число в середину первого. Результат: ',z);

end.

Comments

Так воно ж не працює...

---

Просто, я эту программу под себя подстроило и меня получилось все. С твоей я попробовала, у меня не получилось)

---

Я не сомневаюсь, что ты все правильно сделала)

---

Уточняйте, что писали программу на PascalABC.NET или других версиях Pascal (Turbo, ...)Потому что в обычном Pascal функция Random принимает только одно значение.