Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
var a: integer;
begin
write('Введите число: ');
read(a);
if (a div 100 > 0) and (a div 100 10) then write('Число ', a, ' трехзначное')
else write('Число ', a, ' не трехзначное')
end.