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

Question

Информатика

Кируся

17 февраля, 02:13

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

+4

Ответы (1)

Знаете ответ на вопрос?

Бонифатий · Answer 1

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.