Var i,j:integer;
Begin
for i := 1 to 9 do
for j := 1 to 9 do
if (i+j=i*j) then
writeln(10*i+j);
End.
Файловая система это иерархическая структура. Следовательно, есть папки верхнего и нижнего уровня. Например Рабочий стол/Папка1/Папка2
Здесь видно что Папка2 лежит в Папке1 значит Папка2 нижняя, а Папка 1 верхняя, в свою очередь Рабочий стол по отношению к Папке1 верхняя папка, а Папка1 нижняя. Если все равно остались вопросы пишите в личку
<span>МСО Visio, Sketsa SVG Editor / все CADы векторные (3д SweetHome, FloorPlan, CAD Architects) / ГИСы</span>
Var
a: integer;
begin
readln(a);
if a mod 10 = a div 100 then
writeln('TRUE')
else
writeln('FALSE');
<span>end.</span>
Прости решения нету но ответ есть и это не шутка
1024MB=8192000000<span> bit</span>