Question

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

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.