Question

Напишите программу, которая определяет, верно ли, что введённое число -трёхзначное. Пожалуйста напишите программу в Паскале. Начало с var...begin...end.Пожалуйста

Answer 1

var a:integer;b:string;beginreadln(a);str(a,b);if length(b)=3 then writeln(b,' - трехзначное число');end.

Answer 2

var a:integer;
b:string;
begin
readln(a);
str(a,b);
if length(b)=3 then writeln(b,' - трехзначное число');
end.