Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.
var
a:array[1..15] of integer;
i, count:integer;
begin
count := 0;
writeln('Индексы отрицательных элементов:');
for i := 1 to 15 do
begin
a[i] := 15 - 4 * i;
if a[i] < 0 then
begin
inc(count);
write(i, ' ');
end;
end;
writeln;
writeln('Вего отрицательных элементов - ', count);
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
Реализация на Excel
Зашита без пароля.
Формулы можно увидеть в строке формул