Составьте программу,определяющую,является ли целое положительное число трехзначным.
Answers & Comments
A1darvar a: integer; begin write('Введите число: '); read(a); if (a div 100 > 0) and (a div 100 < 10) then write('Число ', a, ' трехзначное') else write('Число ', a, ' не трехзначное') end.
Answers & Comments
begin
write('Введите число: ');
read(a);
if (a div 100 > 0) and (a div 100 < 10) then write('Число ', a, ' трехзначное')
else write('Число ', a, ' не трехзначное')
end.