Будет 29, так как значение полностью скопируется
Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.
Рекламная графика
Графическая часть рекламы имеет особое значение в формировании доминантных очагов повышенной возбудимости в коре (или подкорке) головного мозга на признаки рекламируемого товара. Как установили археологи, между первыми инструментами для материальной работы, изобретенными человеком (топор, ловушка и т.п.), и первыми инструментами для регистрации информационных образов (иероглифов, букв, цифр и др.) на камне, глиняных пластинках, кости и т.п. лежит промежуток почти в миллион лет. Другими словами, примерно 99% времени своего исторического развития люди имели дело в основном с материальными объектами. А весь период, в течение которого они пользовались и информационными образами (буквами, письмом), не составляет и 1% от всего возраста человеческой цивилизации [30, с. 11—12]. Следовательно, глубина творческой интуиции человека в сфере информационной деятельности значительно слабее, чем в сфере обработки графических изображений. Таким образом, абстрактные графические образы рекламы позволяют включить в процесс формирования доминантных очагов наиболее мощные области человеческой интуиции, которые были развиты за первые 99% времени эволюции человеческого интеллекта. Именно поэтому потенциальный покупатель за доли секунды и успевает воспринять графику рекламы, и если она (по очертаниям, форме) знакома ему, запоминает ее практически мгновенно и надолго. Нельзя не использовать в рекламе эту способность человека. К этому, собственно, и должно сводиться предназначение графической части рекламного сообщения.
(Не читать:1kadfjkadjandkansfjkankjdanksfnasfasfjasfnasfjksaf)
var a,c: real;
begin
write ('Введите стоимость 1 кг яблок: ');
readln (c);
a := 0.6;
while a <= 7.2 do
begin
writeln(a:3,' кг яблок стоит ', a*c,' руб.');
a := a + 0.6
end
end.