Составьте программу в Pascal:
Компьютер задаёт случайное двухзначное число Х, например 39;
Компьютер задаёт случайное однозначное число У, например 8;
Необходимо получить новое трехзначное число Z, а именно 389
Т.е.число У вписать в середину Х
Компьютер задаёт случайное двухзначное число Х, например 39;
Компьютер задаёт случайное однозначное число У, например 8;
Необходимо получить новое трехзначное число Z, а именно 389
Т.е.число У вписать в середину Х
More Questions From This User See All
Answers & Comments
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.
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.
Потому что в обычном Pascal функция Random принимает только одно значение.