<span>1 символ в кодировке Виндовс-1251 = 1 байт.
1536 симв.*1 байт/симв. = 1536 байт.
1536 / 1024 = 1,5кБайт.
</span>
Может задачу недопонял. Но вот что вышло:
uses crt;
var n,i,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
s:=s+i;
end;
writeln(s);
readkey;
<span>end.</span>
program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
i,n,k,p:byte;
begin clrscr; Randomize;
writeln('n:');readln(n);
writeln('a:');readln(p);
for i:=1 to n do
begin
write('элемент ',i,' : ');
readln(a[i]);
end;
for i:=1 to n do
write(a[i],' ');
k:=0;
for i:=1 to n do
begin
if a[i] > p then inc(k);
end;
writeln('количество элементов массива, которые больше заданного числа',p,' : ',k);
end.
Я думаю, что ответ 4, потому что:
Смотри, буква A находилась по коду
"А" =80+00=80, то есть по вертикальному столбцу ищем 80, а чуть выше столбца, по вертикали есть коды 00,01 и т. д., ищем 00, попадаешь в букву А, так же и с А0+0С=А0С. Ищешь по вертикальному столбцу A0, по горизонтальному 0С попадаешь в м.
В ответе есть вариант с М, но эта большая буква и нам не подходит.
Program zadacha;
var x, y, z: integer (либо real);
begin
readln (x);
readln (y);
if x>=15 then
begin
z:=x*3;
end else
begin
z:=y*3;
end;
write (z);
end.