// PascalABC.NET 3.0, сборка 1128
begin
var k:=0;
for var i:=100 to 999 do
if (i div 100)+(i mod 10)+((i div 10) mod 10)=5 then Inc(k);
Writeln('Количество чисел равно ',k)
end.
<u><em>Тестовое решение:</em></u>
Количество чисел равно 15
Var a: array [0..10, 0..50] of integer;
b: array [0..10] of integer;
i, j: integer;
begin
for i := 0 to 10 do
begin
for j := 0 to 50 do
begin
a[i, j] := random(50);
write(a[i, j]:3);
end;
writeln();
end;
for i := 0 to 10 do
for j := 0 to 50 do
b[i] := b[i] + a[i, j];
for i := 0 to 10 do
write(b[i], ' ');
<span>end.
Можно было, конечно, поменьше циклов, но так нагляднее будет =)</span>
<span> ПК- это персональный компьютер .на котором находится ваша информация</span>
Это программка, качай и пользуйся, PascalABC
Если знаки расставлены правильно, то
1) 1&1=1
2) 1&0=0
3) 0&0 =0
4) 0&0=0