Юникод вроде бы 12 бит/симв? я не помню...
3744*8/12=3744*2/3=2496 символов
2496/39=64.
64 строки (если юникод берет 12 бит на символ)
1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
256|_8____
-256 32|_8___
0 -32 4
0
256 в 10 -> 400 в 8
400|_8__
-400 50|_8__
0 -48 6
2
400 в 10 -> 620 в 8
100101101 вот это ответ на 301
//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.