Program trexznach;
var l:integer;
begin
Writeln(Введите любое число);
readln(l);
if (l>=100) and (l<1000) then
Begin
Writeln(Число является трехзначным);
end
else writeln(Число не является трехзначным);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Решение задачи на языке pascal
Program trexznach;
var l:integer;
begin
Writeln(Введите любое число);
readln(l);
if (l>=100) and (l<1000) then
Begin
Writeln(Число является трехзначным);
end
else writeln(Число не является трехзначным);
end.