<span> новый международный стандарт Unicode, который отводит два байта, и поэтому с его помощью можно закодировать не 256, а 65536 различных символов
соотвественно это 4 </span>
var n:integer;
begin
write('n=');
read(n);
if (n>0) then write ('n>0');
if (n<0) then write ('n<0');
if (n=0) then write ('n=0');
end.
Http-протокол (поставь спасибо плиииииииииииииз!(╥_╥)
На правой панели проводника может отображаться либо свойства выбранного файла, либо его предварительный просмотр, либо ничего
Var a:array [1..3,1..5] of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 3 do begin
for j:=1 to 5 do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
for i:=1 to 3 do
for j:=1 to 5 do
s:=s+a[i,j];
writeln (s);
readln;
end.