Определить является заданное число трехзначным. Пожалуйста помогите срочно если не сложно то всю программу полностью.
Определить является заданное число трехзначным. Пожалуйста помогите срочно если не сложно то всю программу полностью.
Гость
Ответ(ы) на вопрос:
Гостьvar a : integer;
begin
readln(a);
if (a div 10 >0)and(a div 100>0)and(a div 100<10) then writeln('Число трехзначное')
else writeln('Число не трехзначное');
end.
Гостьvar n:integer; Begin read(n); if (n>99) and (n<1000) then writeln('Yes') else writeln('No'); End.
Не нашли ответ?
Похожие вопросы