У, например благодатной почвой для сюжета можно выбрать - Старые сказки на супер-новый лад... Известные герои с неизвестным продолжением... Как вам такое: Буратино исполнилось 35 лет, Мальвина - его жена, у Буратино 5 детей, Карабас Барабас возглавляет мафиозную структуру и так далее... Или рисованный мультик про Чебурашку-каратиста, который работает в сыскном агентстве ...Вариантов много, буду нужен - пишите на ящик.<span>
</span>
type z=array of integer;
var a: z;
i,j,k: integer;
begin
setlength(a,1);
readln(a[0]);
i:=1;
while(a[i-1]<>0) do
begin
setlength(a,i+1);
readln(a[i]);
i:=i+1;
end;
setlength(a,length(a)-1);
for i:=0 to length(a) do
for j:=0 to length(a)-2 do
if (a[j] < a[j+1]) then
begin
k:=a[j];
a[j]:= a[j+1];
a[j+1]:=k;
end;
write(a[0],'; ',a[1],'; ',a[2],'; ',a[3]);
end.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
function IsPrime(n:integer):boolean;
begin
Result:=Range(2,Round(sqrt(n))).All(i->n mod i<>0)
end;
begin
var n:=9;
var a:=MatrixRandom(n,n,3,15);
var k:=0;
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:3);
if IsPrime(a[i,j]) then Inc(k)
end;
Writeln
end;
Writeln('Простых чисел: ',k)
end.
<u><em>Тестовое решение:</em></u>
12 15 13 5 8 5 11 14 9
7 7 14 10 5 10 9 12 3
8 8 10 7 12 14 7 6 9
13 13 7 6 4 9 13 10 11
15 4 11 12 11 4 12 8 9
7 6 14 5 10 15 6 7 9
4 7 6 14 13 5 11 13 3
4 4 5 7 12 10 14 9 11
7 12 13 8 10 6 8 3 15
Простых чисел: 32
Ну,короче,если обычный, 12-см диск, то CD вмещает в себя 700 МБ информации. Есть,
правда, и диски с увеличенным объемом (т. н. "CD-R90"), но их
использование не особо рекомендуется, потому что "лишние" 100 МБ пишутся
в служебные области. Если же взять DVD диск, то его "стандартная"
емкость - 4.7 ГБ (десятичных, если в двоичных, то 4.38 ГБ) . Есть и
двухслойные диски (внешне неотличимы от обычных, только цена выше) . У
них емкость 8.4 ГБ. Где-то существуют и двухсторонние DVD диски.
Если взять маленький, 8-см диск, то у CD его емкость 210 МБ, а у DVD -1.4 ГБ.В wikipedii есть по-моему подробное объяснения(поэтому предлагаю тебе там немножко "погулять").
У Blue-ray: 25 Гб (однослойный) 50 Гб (двухслойный) 100 ГБ (3-слойные диски) и 128 ГБ (4-слойные диски).
Флешки разные,от 4гб до 4 терабайт(максималка)