1)Program A1;
var
a,i:integer;
begin
a:=0;
for i:=1 to 100 do if (i mod 5=0)and(i>0) then a:=a+i;
writeln(a);
end.
2)Program A2;
var
a: array [1..10,1..10] of integer; b,i,j:integer;
begin
writeln('Vvedi massiv');
for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]);
b:=0;
for i:=1 to 10 do b:=b+a[i,i];
writeln(b);
end.
У тебя задание не правильно написано похоже .
Если 13 БАЙТОВ,то нужно 13•8=102 бита
Итого все переведем в 10
100_2 = 4
40_5 = 20
30_8 = 24
10_16 = 16
из них самое большое 24, значит самое большое 30_8
Шта??????????????????????