Find all 3-digit integers less than the specified number. (Pascal)
| September 22, 2021 | education
var a, b: integer;
begin
cls;
write (‘Enter a three-digit number:’);
readln (a);
writeln (‘Three-digit numbers, less than the specified number:’);
for b: = 100 to 999 do // since all numbers from 100 to 999, including 100 and 999, are three-digit.
begin
if b <a then writeln (b);
end;
end.
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.
