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

Question

Информатика

Миля

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

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

+2

Ответы (2)

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

Нюта · Answer 1

Нюта 17 февраля, 14:02

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.