1Гб=1024 Мб
1Мб=1024 Кб
Бит-самая маленькая единица информации
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 a, b: real;
begin
read(a, b);
write((a + b) / 2 : 0 : 2)
end.