1024*512=524288 точек всего
1,5Мб = 1536 Кб = 1572864 байт = 12582912 бит
12582912 / 524288 = 24 бита на пиксель
N =
= 16777216 цветов
Оригинал-живой, имеет глаза, уши, рот, нос , руки, ноги, тело, двигается.
Кукла- неживая, имеет глаза, уши, рот, нос , руки, ноги, тело.
общие: имеет глаза, уши, рот, нос , руки, ноги, тело
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
Опишем условия задачи (ориентируемся на рисунок где выделены области N1, N2, N3)
N2=1000 (из условия фрегат & эсминец 1000)
N1+N2=2000 (из условия фрегат 2000)
N2+N3=2500 (из условия эсминец 2500)
Запрос фрегат | эсминец можно описать как
N1+N2+N3
Выражаем из уравнений выше каждую из N
N2=1000
N1=2000-N2=2000-1000=1000
N3=2500-N2=2500-1000=1500
Получаем:
N1+N2+N3=1000+1000+1500=3500
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
<h3>N= 10</h3><h3>7 14 21 28 35 42 49 56 63 70</h3>