Var x,y:real; n:integer;
function f(x:real;n:integer):real;
var i,st:integer;
begin
st:=1;
for i:=1 to n do st:=st*2;
f:=sin(x)*st;
end;
begin
writeln('x, n:');
readln(x,n);
y:=f(x,n);
writeln('x = ',x,' y = ',y);
end.
Пример:
x, n:
2 5
x = 2 y = 29.0975176584218
Персональный комп. бывает-Настольным, Переносным, Наладонным.
<span>1.В кастрюлю налить кефир.
2.</span><span>Вылить молоко
3.</span><span>Добавить сливки.
</span><span>4.Вбить яйца.
</span><span>5,Положить соль.
</span><span>6,Всыпать сахар.
</span><span>7,Всыпать разрыхлитель.
</span><span>8.Добавить муку. Тесто по консистенции должно напоминать жидкую сметану.
</span>9.Все как следует перемешать и оставить на час при комнатной температуре, затем убрать на ночь в холодильник<span>. Если планируете выпекать сразу, дайте тесту постоять минут 15-20 и приступайте к выпечке.
</span><span>10,Сковороду накалить, смазать маслом
</span><span>11,Выливая небольшое количество теста распределять его по всей поверхности сковороды.
</span><span>12,Выпекать с двух сторон до золотистого цвета, буквально по полминутки.
</span><span>13,Готовые блины складываем стопкой, промазывая каждый блин сливочным маслом.
</span><span>14,Подать блины к столу со сметаной, вареньем, медом или сгущенкой.</span>
var
a, m : integer;
begin
writeln('введите 8 чисел');
read(m);
for var i := 2 to 8 do begin
read(a);
if a > 0 then if a < m then m := a;
end;
writeln('наименьшее из чисел = ', m);
end.
0 не учитывается, если 0 тоже считать как положительное число то
"if a > 0" нужно заменить на "if a >= 0"