Program gt;
var a,b,p:real;
i:integer;
begin
a:=10000;
p:=7.4;
for i:=1 to 8 do
begin
a:=a+a*p/100;
end;
writeln(a);
<span>end.</span>
Ответ будет - многоуровневая файловая система.
Способы вызова:
Нажатием правой кнопки мыши (для правшей).
Специальной клавишей Menu .
Сочетанием клавиш: в Windows и Linux — ⇧ Shift + F10 , в OS X — щелчок кнопкой мыши при нажатой клавише Ctrl ;
в OS X можно также вызвать контекстное меню для выделенного объекта через кнопку «Action».
Ответ:
создаешь переменную допустим а = 1001
запускаешь цикл на проверку элементов массива и в цикле условие
если массив[i] >=0 и массив[i] mod 10 <> 3 и mass[i]<a то а = массив[i]
конец цикла
а потом после цикла условие если а = 1001 то вывожишь Не найдено
иначе
выводишь а