Даны натуральные числа от 20 до 50 определите те из них, которые делятся на 3, но не делятся на пять. на Pascal abc. используя 3 вида цикла(предусловием, постусловием, с параметром)
Начиная с левого верхнего угла начнем кодировать клетки, двигаясь в верхнем ряду слева направо, в следующем в обратную сторону (т.е. справа налево) и так до конца.
8288A7F₁₆
Объяснение:
1 - черная клетка;
0 - белая клетка.
Начиная с левого верхнего угла начнем кодировать клетки, двигаясь в верхнем ряду слева направо, в следующем в обратную сторону (т.е. справа налево) и так до конца.
Будет получен код в двоичной системе:
1000001010001000101001111111
Переведем в десятичную систему:
1000001010001000101001111111₂ =
= 1∙2²⁷+0∙2²⁶+0∙2²⁵+0∙2²⁴+0∙2²³+0∙2²²+1∙2²¹+0∙2²⁰+1∙2¹⁹+
+0∙2¹⁸+0∙2¹⁷+0∙2¹⁶+1∙2¹⁵+0∙2¹⁴+0∙2¹³+0∙2¹²+1∙2¹¹+0∙2¹⁰+
+1∙2⁹+0∙2⁸+0∙2⁷+1∙2⁶+1∙2⁵+1∙2⁴+1∙2³+1∙2²+1∙2¹+1∙2⁰ =
= 134217728+0+0+0+0+0+2097152+0+524288+0+0+0+
+32768+0+0+0+2048+0+512+0+0+64+32+16+8+4+2+1 =
= 136874623₁₀
136874623₁₀ переведем в шестнадцатиричную систему:
136874623₁₀ = 8288A7F₁₆
Перевод из десятичной системы в шестнадцатеричную подробнее на фото.
Не совсем верно, но очень близко.
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j,k:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]=a[i] then k:=k+1;
if k=1 then write('В массиве только 2 одинаковых элемента')
else write('В массиве не 2 одинаковых элемента');
readln
end.
Объяснение: