1. Не знаю, как совместить стороны и диагонали в одном решении, сделал нахождение по диагоналям.
var d1, d2, S: real;
begin
write('Введите диагонали d1 и d2');
readln(d1, d2);
if(d1>0) and (d2>0) then
begin
S:=(d1*d2)/2;
writeln('Площадь равна: ', S)
end
else
writeln('Условия неверны!')
<span>end.
Чтобы написать, достаточно знать основы паскаля. Если есть вопросы к какой-либо строке - напиши.
2. </span><span>16*sqr(sqr(x))-(sqrt(x))</span>
Var N, k, i: integer;
begin
write(' N = ');
readln(N);
k:=0;
for i:=N downto 1 do
k:=k+i*i;
writeln ('k=', k);
end.
Измените тип переменных n и k на integer:
function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;
var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.
256 = 2⁸, поэтому пикселей 2⁸×2⁸ = 2¹⁶ пикселей
3 Кбайта = 3×2¹⁰ байт = 3×2¹⁰×2³ бит = 3×2¹³ бит.
На 1 пиксель приходится 3×2¹³/2¹⁶ бит = 3/2³ =3/8 бита.
Это и есть размер палитры. Но под пиксель нельзя отвести меньше бита, поэтому задача НЕКОРРЕКТНА.
Begin
for var i=1 to n do
Writeln(i);
end.