Программа предлагает пользователю ввести двузначное число. Если пользователь ошибся, то выдать сообщение «Вводите только двузначные числа».
Нет комментариев
Ответы
Гость В чём заключается вопрос???
Нет комментариев
Гость 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.
Нет комментариев
Похожие вопросы
Информатика
КАКИЕ ОСНОВНЫЕ ТИПЫ ПЕРЕМЕННАХ ИСПОЛЬЗУЕТСЯ В ЯЗЫКЕ ПРОГРАММИРОВАНИЕ VISUAL BASIC 2005 ГОДА...
Информатика
КАКИЕ ОСНОВНЫЕ ТИПЫ ПЕРЕМЕННАХ ИСПОЛЬЗУЕТСЯ В ЯЗЫКЕ ПРОГРАММИРОВАНИЕ VISUAL BASIC 2005 ГОДА...
Список предметов
