Ввести массив
проверяет условие и выводит количество чисел:
<span>for i:=1 to 12 <span>do
</span></span>k=0;
if (A[i] mod 5=0) and (A[i] mod 3=0) then k=k+1;
writeln(k); end.
Быквы и цыфры
Знаки операций
Символы
Ограничители и разделители
Специальные символы
Const n=10; {Можно подставить любое число}
var a:array[1..n] of integer; i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(8)+1; {Массив заполняется числами от 1 до 9}
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (i mod 2)=0 then s:=s+a[i];
writeln(s);
end.
Ответ:
Объяснение:
Для решения задач необходимо все заданные числа перевести в одну систему счисления. В нашем случае все числа запишем в десятичной системе счисления.
Задача 1
1001001₂ = 73₁₀
324₈ = 212₁₀
7В₁₆ = 123₁₀
73-212+123 = -16
Задача 2
4Е₁₆ = 48₁₀
150₈ = 104₁₀
В интервале будет расположено
104-48+1 = 57 чисел
Задача 3
30₁₆ = 48₁₀
65₈ = 53₁₀
110011₂ = 51₁₀
Наименьшее число 48