Var a,r,y: real;
begin
readln(a);
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a));
writeln(r,y);
<span>end.</span>
1) 3,125 КБ = 24576 б (килобайт в биты)
2) 2,525 МБ = 2097152 Б (мегабайт в байты)
3) 4,75 ГБ = <span>4194304 КБ</span> (гигабайт в килобайты)
Знаки расставь сам, а вообще Марина Права, перепроверь где биты (б), а где байты (Б)
Program table;
var a,b,i,c,i1:integer;
begin
b:=1;
for i:=1 to 9 do
begin
a:=1;
for i1:=1 to 9 do
begin
c:=a*b;
a:=a+1;
write(c:3);
end;
writeln;
b:=b+1;
end;
<span>end.</span>
Объяснительная.
Я,ФИО, пропустила уроки потому,что спала. Сон был настолько реальным,что я подумала,что пошла в школу. По пути в школу было много приключений и тд. У меня не очень хорошая фантазия
1) Можно сделать пустой слайд, а на следующем текст. По щелку первый слайд переключится на второй.
2) Можно на слайде написать текст, выделить его и сделать анимацию: чтобы он появлялся по щелчку мыши.
Или попроси одноклассников отвернуться. Или сделай много пустых слайдов, чтобы не было видно тот, который с текстом.