Ответ:
Код и пример вывода в прикрепленных файлах ниже.
Объяснение:
Все программы, установленные на компьютере составляют его: программное обеспечение.
Ответ: B
Для того что бы разместить информацию на дискейте (1,44) объемом (2048) понадобиться;
2048/1,44=1422
Var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while s<q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страница = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
<span>Страница = 6</span>
Блок-схема во вложении. Вот, если пригодится - программа
var
h,n:integer;
begin n:=1;
while h<=24 do
begin
h:=h+3;
n:=n*2;
end;
writeln(n);
<span>end.
</span>