Узнаем сколько весит один кадр 640*480*8=2457600 бит
Сколько весит одна секунда 2457600*12=<span>29491200</span> бит
сколько весит час <span>29491200</span>*60с.*60мин.=<span>106168320000</span> бит
сколько мбайт <span>06168320000</span> бит : 8 : 1024 : 1024 = <span>12656,25</span> мбайт.
Примерно так.
Он построил модель мира с целью познания.
2 рицарі, 1 повертається,забирає ще 1 риц., поверт., виходить з лодки, сідають 2 зброєносці, 1 поверт., забирає ще одного, назад повертається рицар і забирає останнього рицаря
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var n:=ReadInteger('n=');
var s:=n mod 10;
n:=n div 10;
var d:integer;
while n>0 do (d,n):=(n mod 10,n div 10);
s+=d;
Writeln('Сумма ',s);
if s>10 then Writeln('Верно') else Writeln('Неверно')
end.
<u>№2</u>
begin
var s:=ReadInteger('n=').ToString;
var n:=s.Length;
(s[1],s[n]):=(s[n],s[1]);
s.Println;
if s[n].ToDigit.IsEven then Writeln('Верно') else Writeln('Неверно')
end.
<u>№3</u>
begin
var n:=ReadInteger('n=');
var p:=1;
while n>0 do begin
var d:=n mod 10;
if d.IsOdd then p*=d;
n:=n div 10
end;
Writeln('Произведение ',p);
If p.InRange(100,999) then Writeln('Верно') else Writeln('Неверно')
end.
<u>№4</u>
begin
var n:=ReadInteger('n=');
var k:=0;
while n>0 do begin
if n mod 10=5 then k+=1;
n:=n div 10
end;
if k=3 then Writeln('Верно') else Writeln('Неверно')
end.
<u>№5</u>
begin
var n:=ReadInteger('n=');
var k:=1;
Writeln('Делители: ');
for var i:=1 to n div 2 do
if n mod i=0 then begin
Print(i);
k+=1
end;
Writeln(n);
if k.IsEven then Writeln('Верно') else Writeln('Неверно')
end.