Правая кнопка мыши, создать - выбираем папку, называем её, а при необходимости её переименовать кликаем по ней правой кнопкой мыши и переименовать.
Var n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
end.
Что это за фигуры -_- и причем тут информатика
Компьютер
непонятный, железный
жужжит, светится, виснет
можно играть в компьютерные игры
<span>хорошая покупка...</span>
Var i,n,l: integer;beginfor i:=108 to 999 do beginif (i mod 9 =0)then writeln(i+'') end;end.