Const n=5;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i,n-i+1]:=i;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:2);
writeln;
end;
end.
Результат:
0 0 0 0 1
0 0 0 2 0
0 0 3 0 0
0 4 0 0 0
5 0 0 0 0
Program qq;
var x: real;
begin
readln (x);
if x>0 then writeln ('положительно')
else writeln ('отрицательно ');
end.
3072 байт<span> равно </span>3 килобайт
3072 килобайт<span> равно </span>3 145 728 байт<span> </span>
<span>Делишь несколько раз на 10, каждый раз определяешь остаток от деления, если остаток -0, то счетчик + 1</span>
Вроде так:
1) ГБВА
2) ДВАЕГБЖ