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

Seregabludov98 Seregabludov98    1   02.09.2019 00:40    1

Ответы
8888щоолзлтлжд 8888щоолзлтлжд  03.08.2020 14:26
В чём заключается вопрос???
ПОКАЗАТЬ ОТВЕТЫ
LebedevAleksand LebedevAleksand  03.08.2020 14:26
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика