Могу сказать темы:
рассписание автобусов
в дневнике схемы
концертное рассписание
При использовании 65536 цветов для хранения одной точки изображения необходимо log(2)65536 = 16 бит = 2 байта.
Объем переданного файла = 14400*3*60 бит = 14400*3*60/8 байт = 324 000 байт
Количество точек изображения = 324 000 / 2 = 162 000
Размер изображения может быть, например, 810*200 или 400*405
Для небольших значений k вполне подойдет очередь.
var i,n,k,lf,rt,bg,nd: integer;
<span> a: array[1..50000] of integer;
</span><span>begin
</span><span> write('N = '); readln(n);
</span><span> write('K = '); readln(k);
</span><span> for i:=1 to 50000 do a[i]:=0;
</span><span> bg:=1; nd:=1;
</span><span> a[bg]:=n;
</span><span> repeat
</span><span> n:=a[bg];
</span><span> if n mod 2 = 0 then lf:=(n div 2)-1
</span><span> else lf:=n div 2;
</span><span> if n mod 2 = 0 then rt:=lf+1
</span><span> else rt:=lf;
</span><span> inc(nd);
</span><span> a[nd]:=rt; inc(nd);
</span><span> a[nd]:=lf;
</span><span> inc(bg);
</span><span> dec(k);
</span><span> if nd>49500 then
</span><span> begin
</span><span> writeln('слишком большое k');
</span><span> exit;
</span><span> end;
</span><span> until k=0;
</span><span> writeln(lf,' ',rt);
end. </span>
N = 12456987
<span>K = 23198
379 379
</span>
N = 20
<span>K = 4
</span><span>2 2
</span><span>
N = 20
K = 5
1 2
</span>
Ответ:
program znanija
var arr: array [1..30] of integer;
var i: integer;
begin
for i:=0 to 30 do
begin
readln (arr [i]);
end;
for i:=0 to 30 do
begin
if arr[i] > 10 then
begin
writeln (arr [i]);
end;
end;
end.
Или линк: https://pastebin.com/Jm5R4Ehp
// PascalABC.Net 3.0, сборка 1066
const
s1='АБВГабвг';
s2='12341234';
var
c:char;
i:integer;
begin
Write('Введите букву класса: '); Readln(c);
i:=Pos(c,s1);
if i>0 then begin
c:=s2[i];
case c of
'1':Writeln('гимназический');
'2':Writeln('математический');
'3':Writeln('обычный');
'4':Writeln('коррекционный')
end
end
else Writeln('Неверная буква')
end.
<em><u>Тестовое решение:</u></em>
Введите букву класса: Б
математический
<em><u>Примечание: работа программы также проверена в Borland Pascal 7.01</u></em>