Составьте программу , определяющую, является ли целое положительное число трехзначным.

Представил на языке pascal: program z_1; var n: integer; begin   write('n= ');   readln(n);   if (n> =100)and(n< =999) then writeln ('число является трехзначным') else writeln('число не является трехзначным'); end.

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

бег-бог-лог-лаг-шаг

бант-кант-карт-кара-кора-коса

шар-бар-бам-бум-кум-куб

муха-мура-фура-фора-кора-корн-коан-клан-клон-слон

миг-маг-мак-бак-бек-век