Задача №1
//Pascal
var i,a,s,k:integer;
begin
s:=0;k:=0;
repeat
readln(a);
if a>12 then begin
k:=k+1;
s:=s+a;
end;
until a=0;
if k<>0 then writeln(s/k)
else writeln('Таких чисел нет');
end.
Задача №2
var
n,p: integer;
begin
p:=1;
readln(n);
while n > 0 do
begin
write(' ', n mod 10);
if n mod 10 < 4 then p:=p * (n mod 10);
n := n div 10
end;
if p<>1 then writeln('Произведение цифр числа ', p)
else writeln('Нет решения');
end.
Я выделила самую главную информацию.
Главным направлением перестройки менеджмента и его радикального усовершенствования, приспособления к современным условиям стало массовое использование новейшей компьютерной и телекоммуникационной техники, формирование на ее основе высокоэффективных информационно-управленческих технологий.
Средства и методы прикладной информатики используются в менеджменте и маркетинге. Новые технологии, основанные на компьютерной технике, требуют радикальных изменений организационных структур менеджмента, его регламента, кадрового потенциала, системы документации, фиксирования и передачи информации.
<span>Скорость передачи данных по локальной сети 37 Mбит в секунду. Ученик скачал игру за 58 минут. Каков объём скачанной информации в Кбайтах? </span>
<span>Сколько бит видеопамяти занимает информация об одном пикселе на ч/б экране (без полутонов)?
ответ 1 бит</span>
пиксель = 1 точка
для черно-белого изображения (без полутонов) для одного пикселя подается либо 1 - включено либо 0 - выключено, всего 1 бит
<span> Какой объем видеопамяти необходим для хранения
четырех страниц изображения, если битовая глубина равна 24, а
разрешающая способность дисплея- 800 х 600 пикселей?
ответ 24*800*600 бит = </span><span>
11520000
</span>бит = <span>
1 440 000
</span>байт ( = 1,4 Мб )
то что в скобках - не уверен в точности
В следующий раз внимательно смотрите за переменными и что вы им присваиваете и желательно вам разобратся в типах данных, это основы основ.