2. Кітаптағы 110 Мб ақпаратты «Информатика» сөзінің қаншасымен ауыстыруға болады?
3. Толық аты-жөндерің қанша бит және байт болатынын есептеу арқылы
табыңдар. (БОЛАТОВА Нурай)
41 Гб ақпаратты желіде 512 секунд ішінде тасымалдасақ, онда
ақпаратты жеткізу жылдамдығы қанша болады?
5. 600 беrrік кітаптың әр бетінде 30 қатар 64 символ бар. Осы кітаптағы
ақпаратты 64 Кб/с жылдамдықпен тасымалдау үшін қанша уақыт қажет?
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
begin
writeln('Введите кол-во правильных ответов, данных участником ',i);
readln(a);
if (a > max) then max:=a;
if a=0 then fl:=1;
end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' ');
end.
Пример:
Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал
Сначала они будут заполнены значением, большим своего индекса на 1, а потом каждому элементу, начиная со второго (который А[1]) будет присвоено значение предыдущего элемента и 1 распространится везде.
Для проверки была написана программа с отладочной выдачей.
var
a:array[0..10] of integer;
i:integer;
begin
for i:=0 to 10 do begin a[i]:=i+1; Write(a[i],' ') end;
Writeln;
Write(a[0],' ');
for i:=1 to 10 do begin a[i]:=a[i-1]; Write(a[i],' ') end
end.
Результаты
1 2 3 4 5 6 7 8 9 10 11
1 1 1 1 1 1 1 1 1 1 1
ответ: 3)