Question

Напишите программу на языке Паскаль, определяющую принадлежность введенного числа сотням.Напишите программу на языке Паскаль, определяющую принадлежность введенного числа сотням.

Answer 1

var x:real;

begin

readln(x);

if (x<1000)and(x>100) then writeln('принадлежит') else writeln('не принадлежит');

end.