Программа предлагает пользователю ввести двузначное число. Если пользователь ошибся, то выдать сообщение "Вводите только двузначные числа".

Question

Информатика

Альбина

14 апреля, 01:31

Программа предлагает пользователю ввести двузначное число. Если пользователь ошибся, то выдать сообщение "Вводите только двузначные числа".

+2

Ответы (2)

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

Нюта · Answer 1

Нюта 14 апреля, 02:16

0

В чём заключается вопрос?

Кельтск · Answer 2

Var a, b: word;

k: byte;

begin

write ('Введите двузначное число: ') ;

readln (a) ;

b : = a;

k : = 0;

while b 0 do begin

a : = a mod 10;

k : = k + 1;

b : = b div 10

end;

if (k 2) then

writeln ('Вводите только двузначные числа')

end.