Написать программу в паскале из диапазона от 10 до 1000 компьютер выбрал случайным образом число. если выбранное число является трехзначным, то поменять местами первую и последнюю цифры, выдать на печать число,
выбранное пк и новое, полученное после перестановки цифр. в противном случае, вывести выбранное пк число
200
220
Ответы на вопрос:
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.
Популярно: Информатика
-
migmo522.06.2021 14:51
-
6vyvu14.08.2022 11:06
-
Joy0529.03.2021 08:36
-
milton55501.05.2020 19:37
-
5nelli29.11.2020 15:57
-
berezovskayave27.02.2021 07:03
-
Artem03040516.01.2020 19:56
-
lisovasvitlana1516.02.2022 01:30
-
1greg01.09.2020 06:34
-
nastya274218.02.2021 19:00