Паскаль программа

1) Программа загадывает случайное целое число из отрезка [1; 10] и просит пользователя его угадать, вводя варианты с клавиатуры, пока пользователь не угадает число, программа будет ему подсказывать, сообщая больше или меньше число загаданное, чем то, что ввёл пользователь.

2) Ввести число (меньше 200000). Поменять в числе цифры местами. Например: вводится 23456 получается 65432.

Question

Информатика

Наталя

15 октября, 17:51

Паскаль программа

1) Программа загадывает случайное целое число из отрезка [1; 10] и просит пользователя его угадать, вводя варианты с клавиатуры, пока пользователь не угадает число, программа будет ему подсказывать, сообщая больше или меньше число загаданное, чем то, что ввёл пользователь.

2) Ввести число (меньше 200000). Поменять в числе цифры местами. Например: вводится 23456 получается 65432.

+1

Ответы (1)

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

Максимианыч · Answer 1

1)

var a, b: integer;

begin

a : = random (9) + 1;

repeat

readln (b) ;

if (a > b) then writeln ('X > ', b) ;

if (a < b) then writeln ('X < ', b) ;

until (a = b) ;

writeln ('WIN!') ;

end.

2)

"Лучшее решение - самое простое"

-GLaDOS =)

var a, i: integer;

b: string;

begin

readln (a) ;

b : = inttostr (a) ;

for i : = length (b) downto 1 do

write (b[i]) ;

end.