512*2+64*0+8*1+1*4 = 1036
343*2+49*0+7*1+1*4 = 697
216*2+36*0+6*1+1*4 = 442
125*2+25*0+5*1+1*4 = 259
При X меньшем или равном(<=) 90
Ответ:
допустим вот так
Объяснение:
это легко на самом деле главное понять
Var a,b:integer;
begin
writeln('введите число');
readln(a);
for b:=100 to 999 do
begin
if b<a then writeln(b);
end;
<span>end.</span>