Ответ на картинке,сначала ты объявляешь начало алгоритма прграммы(в овале),после вводишь данные (параллелограмм),а далее ставишь условие(ромб),выводишь его по формуле(прямоугольник),и заканчиваешь алгоритм(овал).
Лист защищен без пароля, чтобы случайно не повредить формулы.
формулы можно увидеть в строке формул.
var
x, y, s: integer;
begin
readln(x, y);
s := (2*x + y) * (x-y);
writeln(s);
end.
//Pascal
//Функция факториала
function fact(n: integer): real;
begin
if (n = 0) then fact := 1
else fact := n * fact(n - 1);
end;
//Main
var
a: real;
x, lim: integer;
begin
write('Введите x: '); readln(x);
lim := x; a := 0;
for x := 1 to lim do
begin
//a := a + (power(2, x) * fact(x))/(power(x, x));
a := a + ((exp(ln(2) * x)) * fact(x))/(exp(ln(X) * x));
end;
writeln('a = ', a:5:3);
readln;
end.
1250 * 1024 = 1280000 байт
256 = 2^8 - следовательно для цвета используется 8 разрядов
один экран с цветов
640* 400 = 256000 бит * 8 = 2048000 бит / 8 = 256000 байт
страниц видеопамяти оно занимает
<span>1280000 / 256000 = 5 страниц</span>