128*128*16 = 262144 бит занимает 1 картинка = 32768 байт = 32кб
10*12 = 120 картинок во всем видеоролике
32*120 = 3840 кб весит видеоролик = 3,75 мб
цифры конечно поражают, но напоминаем что тут нет никакого сжатия и кодеки не использовались
Var
a, b: integer;
x, y, z, t: integer;
begin
{2}
Readln(a);
Writeln(Sign(a) * abs(a + 3));
{3}
Readln(a, b);
if a > b then a := b;
Writeln(a);
{4}
Readln(x, y, z);
if (x > y) and (y > z) then t := 5
else t := -1;
x := x * t;
y := y * t;
z := z * t;
Writeln(x, ' ', y, ' ', z)
end.
Для решения задачи достаточно знать правила работы всех используемых в данном фрагменте операторов.
Вначале выполняются присваивания <span>s:=0; i:=1;
Затем начинает выполняться цикл, в котором проверяется условие i>1. При подстановке в условие значения i получим 1>1. Это условие не выполняется (выражение имеет значение false), значит не будет выполняться и тело цикла </span><span>begin s:=s+1/I; i:=i-1; end;
</span>Следовательно, значение переменной S останется = 0.
Program z13;
var a:integer;
begin
writeln('vvedite dannoe cislo=');
readln(a);
if a mod 2=0 then writeln(sqrt(a))
else writeln(sqr(a)*a);
readln;
end.