begin
var s := ReadlnString();
if s.Length.IsOdd then
Write(s[(1 + s.Length) div 2])
else
Write(s[s.Length div 2], s[s.Length div 2 + 1])
end.
Я не знаю через массив или как это писать, поэтому напишу простейший вариант
program n_pologitelnih;
uses crt;
var i,n,k,a:integer;
begin
clrscr;
write('Введи N=>> ');
readln(n);
for i:=1 to n do
begin
write('Введи число');
readln(a);
if a>0 then k:=k+1;
end;
write('Положительных чисел из ',n,' введенных - ',k);
readln;
end.
Информация – это обозначение содержания, полученного от внешнего мира в процессе приспособления к нему (Н. Винер).
Информация - снятая неразличимость, передача разнообразия (У.Р. Эшби).
Информация – снятая неопределенность (К. Шеннон).
Информация – отраженное разнообразие (А. Д. Урсул).
Информация – мера сложности структур, мера упорядоченности материальных систем (А. Моль).
Информация – мера неоднородности распределения материи и энергии в пространстве и времени (В. М. Глушков).
Решение:
Количество точек К=960х680=652800
<span>Глубина цвета I=8 бита, т.к. </span>
<span>=256
</span>
N= <span>
N=256</span>
<span><span><span>652800·8 = 5222400 </span>бит = 652800 б= 637,5 Мб ≈ 0,62 Кб</span></span>
uses Robot;
begin
Task('if2');
Paint;
Up; if WallFromUp then Paint; Down;
Right; if WallFromRight then Paint; Left;
Down; if WallFromDown then Paint; Up;
Left; if WallFromLeft then Paint; Right;
end.