Збс, клевое задание................
Деление в столбик на 2 с остатком, до тех пор, пока частное не станет равным 1. Запись начинается с конца (см. рис.)
<span>Вопрос № 7:
</span><span>Предоставление пользователю необходимых ему информационных продуктов называется…
Ответ:
</span><span>информационной услугой
</span>
<span>Вопрос № 8:
</span>Что не является информационной услугой?
Ответ:
<span> ремонт электричества в квартире
</span>
<span>Вопрос № 10:
</span><span>Организации и частные лица, обращающиеся к информационным системам за получением информации называются…
Ответ:
</span><span> пользователями информации</span>
Var a: array [1..10] of Integer;
i, min, sum: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(50);
writeln('[', i, '] => ', a[i]);
end;
min := a[1];
for i := 2 to 10 do
if (min > a[i]) then min := a[i];
i := 1;
while ((i <= 10) and (a[i] <> min)) do
begin
sum := sum + a[i];
inc(i);
end;
writeln(sum);
<span>end.</span>
Сравниваешь a и b, большее\меньшее сохраняешь как x
сравниваешь x и с, большее\меньшее сохраняешь как x
x-твое искомое число