Написать программу в паскале Из диапазона от 10 до 1000 компьютер выбрал случайным…

Question

99

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

player · Accepted Answer

72

player

31 августа 2022

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: