{даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательностикратных 3 и не кратных 5} program zadacha; vara: array[1..255] of byte;i,n,k: integer; beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end; k:=0;writeln();for i:=1 to n do begin if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then begin k:=k+1; write(a[i]:6); end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.
6(10)*3(10)=18(10) 22(x)=2*x^1+2*x^0=2x+2(10) приравняем правые части друг к другу и решим простое уравнение 2x+2=18 2x=16 x=8
ответ: в 8-ричной системе счисления
Можно решить и другим (более простым
6 * 3
22
цифра 2 в первом разряде (единиц) говорит о том, что 18 (произведение 6*3) делится на основание этой системы счисления с остатком 2 цифра 2 во втором разряде говорит о том, что 18 при делении на основание системы счисления дает 2 целых
Итого 18/x=2 целых и 2 в остатке отнимем остаток: 18-2=16 16/х=2 х=8
program zadacha;
vara: array[1..255] of byte;i,n,k: integer;
beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end;
k:=0;writeln();for i:=1 to n do begin if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then begin k:=k+1; write(a[i]:6); end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.
6(х)=6*x^0=6*1=6(10)
3(х)=3*x^0=3*1=3(10)
6(10)*3(10)=18(10)
22(x)=2*x^1+2*x^0=2x+2(10)
приравняем правые части друг к другу и решим простое уравнение
2x+2=18
2x=16
x=8
ответ: в 8-ричной системе счисления
Можно решить и другим (более простым
6
* 3
22
цифра 2 в первом разряде (единиц) говорит о том, что 18 (произведение 6*3) делится на основание этой системы счисления с остатком 2
цифра 2 во втором разряде говорит о том, что 18 при делении на основание системы счисления дает 2 целых
Итого 18/x=2 целых и 2 в остатке
отнимем остаток: 18-2=16
16/х=2
х=8
ответ: в 8-ричной системе счисления