Simbireva
?>

Что не так? почему не работает заданная программа? program massiv; const n=100; var t: array [-100..n] of integer; k, b, a, l, h: integer; begin {ввод массива} write('введите интервал'); randomize; b: =-100; a: =100; for k: =-100 to 100 do begin {количество отрицательных элементов} for l: =-100 to n do read(t[k]); readln; h: =0; for l: =1 to n do if t[k]< 0 then inc(h); write('количество отрицательных элементов', h); end; end.

Информатика

Ответы

Рогова Ольга1156
У тебя n константа попробуй его вписать в интеджер
ietishkin

Дано: текст 3.5 килобайта

Найти: количество символов в тексте

Решение: Итак, текста у нас 3.5 килобайта

Переведём в байты:

3.5 кбайта * 1024 байт\килобайте = 3584 байт.

Так как кодировка не указана выбираем саму распространенную при обучении однобайтовую, тогда символ занимает ровно один байт и значит у нас 

3584 символа. Если же используется двухбайтная кодировка, то 3584/2 = 1792 символа

ответ: 3584 для одного байта на символ или 1792 сиволов для двух байтной кодировки.

 

 

Задача 2

Дано:

Два текста - одинаковое количество символов.

У первого алфавит мощностью 32 символа,

у второго алфавит мощностью 64 символа

Найти:

во сколько раз отличаются объемы текстов

найдем объем инфомрации символа первого текста

log2(32) = 5 бит (логарифм двоичный от 32)

для второго текста 

log2(64) = 6 бит

Пусть текст имеет длину Х

тогда первый текст имеет объем 5x, а второй 6x.

 

Разделим: 6x/5x = 6/5 или 1.2 

ответ: в 6\5 раз отличаются объемы текстов.

 

 

katdavidova91
Program test;
uses utils;
var
  n,i,sum,time:longint;
  flag:boolean;
begin
    readln(n);
    if n<2 then flag:=false;{Единица - не простое число}
    if n=2 then flag:=true;{2 - простое}
    if (n>2) and (n mod 2 <> 0) then begin{ после двойки простые числа только нечетные}
      for i:=1 to n do begin{проверяем что бы было только 2 делителя}
        sum:=sum+1;
      end;
      if sum=2 then flag:=true;
    end
    else flag:=false;
    if flag then writeln('Число простое') else writeln('Число НЕ простое');
    time:=milliseconds;
    writeln('Времени затрачено ',time:10,' ms.');
end.
Все проверки сделаны для сокращения времени работы программы.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Что не так? почему не работает заданная программа? program massiv; const n=100; var t: array [-100..n] of integer; k, b, a, l, h: integer; begin {ввод массива} write('введите интервал'); randomize; b: =-100; a: =100; for k: =-100 to 100 do begin {количество отрицательных элементов} for l: =-100 to n do read(t[k]); readln; h: =0; for l: =1 to n do if t[k]< 0 then inc(h); write('количество отрицательных элементов', h); end; end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Nugamanova-Tatyana840
lshimina65
egoryuzbashev
ckiras9
maryariazantseva
Dmitrievna Lvovich
morsh9345
terehin863
club-pushkin
Инна_Nina1182
iivanov54
Yurevich1291
elenalukanova
vadimpopov88
yamal-toy