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.
Var x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('<span>Число по модулю не может быть > 300</span>.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.
Символ "П" в кодировке Hex будет "CF" ,
в кодировке Dec будет "207" , в
кодировке HTML будет " ∏ "
1. Старуха управляет стариком (посылает его к золотой рыбке с просьбами).
2. Старуха управляет золотой рыбкой (просит золотую рыбку через старика).
3. Старик управляет золотой рыбкой (передает золотой рыбке просьбы старухи).
4. Золотая рыбка управляет вещами старика и старухи (старые вещи исчезают, новые - появляются).