Var n: integer;
begin
read(n);
write((n+7) div 14)
end.
Ответ:
1.
uses Robot;
begin
Task('w3');
while wallfromdown do right
end.
2.
uses Robot;
begin
Task('w8');
while wallfromdown do right;
left;
while wallfromdown do
begin
paint;
left
end
end.
26 символов
2 в степени i , i = 5 бит.
Тут решение сложное обращайся к поисковику
Var ar:array of integer;
z,i,n,o:integer;
begin;
o:=0;
readln(n);
readln(z);
setlength(ar,n+1);
for i:=1 to n do
begin;
readln(ar[i]);
if ar[i]>z then
begin;
inc(o);
ar[i]:=z;
end;
end;
writeln('Array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
writeln('Количество замен=',o);
end.