Підрахувати кількість від’ємних, додатних та нульових елементів. delphi. в массиве

Первая

Program n1;
Uses CRT;
Var a,b,c,k: integer;
begin
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a=b)and(b=c) then begin k:=1; writeln('Ravnostoronnij') end else
If (a=b)or(b=c)or(a=c) then begin k:=1; writeln('Ravnobedrennij'); end;
If (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a))
then begin k:=1; writeln('Pryamoygolnij'); end;
If (a>b+c)or(b>a+c)or(c>a+b) then begin k:=1; writeln('treygolnik nelza sostavit'); end;
If k=0 then writeln('Treygolnik Raznostoronnij');
readln
end.

 

 

Вторая 

Program n1;
Uses CRT;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a>0)and(b>0)and(c>0) then writeln('Summa kvadratov=',sqr(a)+sqr(b)+sqr(b));
If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('Summa =',a+b+c,', Proizvedenie =',a*b*c);
readln
end.

№1)

16 бит = 16 / 8 байт = 2 байта

64 байта = 64 * 8 байта = 512 бит

1 Кб = 1024 байт = 8 * 1024 бит = 8192 бит

2560 байт = 2560 / 1024 Кб = 2,5 Кб ≈ 0,00241 Мб

2 Гб = 1024 * 2 Мб = 2048 Мб

№2)

200 байт ≈ 0,1953 Кб

0,1953 Кб > 0,25 Кб => 200 байт > 0,25 Кб

1536 байт = 1,5 Кб

1,5 Кб = 1,5 Кб => 1536 байт = 1,5 Кб

3 байта = 3*8 бит = 24 бит

24 бит = 24 бит => 3 байта = 24 бита

1000 бит = 125 байт = 0,122 Кб

0,122 Кб < 1 Кб => 1000 бит < 1 Кб

№3)

1) 2 Мб = 2048 Кб

2048 / 100 ≈ 20 файлов можно разместить на дискете

2) 4 Мб = 4096 Кб

4096 / 100 ≈ 40 файлов можно разместить на дискете