Написать программу в паскале Из диапазона от 10 до 1000 компьютер выбрал случайным образом число. Если выбранное число является трехзначным, то поменять местами первую и последнюю цифры, выдать на печать число, выбранное ПК и н...

Написать программу в паскале Из диапазона от 10 до 1000 компьютер выбрал случайным образом число. Если выбранное число является трехзначным, то поменять местами первую и последнюю цифры, выдать на печать число, выбранное ПК и новое, полученное после перестановки цифр. В противном случае, вывести выбранное ПК число
Гость
Ответ(ы) на вопрос:
Гость
var x,x1,x2,x3: integer; //x1- 1 число, х2- 2 число, х3 - 3 число begin   randomize;   x:=random(1000)+10;   if x div 100 >0 then begin x1:=x div 100;                                          x2:=(x mod 100) div 10;                                          x3:=(x mod 100) mod 10;                                          writeln(x,', ',x3,x2,x1);                                  end                          else writeln(x); end.        
Не нашли ответ?
Ответить на вопрос
Похожие вопросы