Делалось из рассчета что 4 записывается 4 единицами и тп
<span>Для N = 3500 и М = 5 будет выбрано 216 чисел</span>
const
symbols_count = 7;
symbols: array[1..symbols_count] of integer = (1000, 500, 100, 50, 10, 5, 1);
var
num, n, m, c, i, j, res: integer;
begin
readln(n, m);
for i := 1 to n do
begin
num := i;
c := 0;
for j := 1 to symbols_count do
if num >= symbols[j] then
begin
c := c + num div symbols[j];
num := num mod symbols[j];
end;
if c = m then begin
{writeln(i);}
res := res + 1;
end;
end;
writeln(res);
end.
не наю че за гамбас
пишу на паскале
var a:array[1..100] of integer;
i,n,k5,k4,k2:integer;
s:real;
Begin
read(n);
for i := 1 to n do begin
writeln('Ввведите оценку учиника ',i);
readln(a[i]);
s:=s+a[i];
if a[i]=5 then k5:=k5+1;
if a[i]=4 then k4:=k4+1;
if a[i]=2 then k2:=k2+1;
end;
writeln(s/n,k5,k4,k2);
End.
Var a : real;beginwriteln('Кол-во дюймов: ');readln(a);a:=a*2.54;writeln(a, ' СМ');end.
program d1;
type mas=array [1..5,1..5] of integer;
const
x:mas=((1,2,3,4,5),
(5,4,3,2,1),
(6,7,8,9,10),
(11,12,13,14,15),
(10,9,8,7,6));
var q,a: mas;
i,j:integer;
function Naim(var chislo: integer): integer;
var i,j,imin: integer;
begin
imin:=chislo;
for i:=1 to 5 do
for j:=1 to 5 do
if imin>x[i,j] then imin:=x[i,j];
Naim:=imin
end;
Procedure Udv(var stolb: integer);
begin
stolb:=stolb*2;
end;
begin
writeln('Исходный массив');
for i:=1 to 5 do begin writeln;
for j:=1 to 5 do write(x[i,j],' ');
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 5 do begin
writeln;
for j:=1 to 5 do begin
if (not odd(j)) then Udv(x[i,j]);
write(x[i,j],' ');
end;
end;
writeln;
writeln('Наименьшее число: ',Naim(x[1,1]));
end.
Полностью готовая программа, пришлось подправлять еще и функцию Naim
2. Процессор. Видеокарта. RAM
3. Устройство, управляющее работой внешних узлов ЭВМ (принтерами, накопителями и др.), а также программное обеспечение к такому устройству.
Это все что я понял
