cmenick29
?>

Определите значение переменной s после выполнения фрагмента программы: s:=0; for k:=1 to 5 do for j:=1 to k do s:=s+k;

Информатика

Ответы

Elenabolt77

55

Объяснение:

Набрал в паскале выдало: 55

Сам код:

var

s,k,j: integer;

begin

s:=0;

for k:=1 to 5 do

for j:=1 to k do

s:=s+k;

write(s)

end.

verynzik66525
{
процедуру с параметрами, обеспечивающую перестановку двух заданных строк матрицы
написан на PascalABC.NET
но должно работать в TurboPascal
}

PROGRAM A5;
const
    rows = 5;
    cols = 8;
   
type
    matrix = array [1..rows,1..cols] of integer;
 
var
    AR : matrix;// рабочая матрица
    i,j:byte;// счетчики
    k1,k2:byte;// номера строк

// обмен строк матрицы местами
procedure SwapRows(row1:byte; row2:byte; var m:matrix);
var i,j:byte;
    ax:integer;
begin
  for i:=1 to cols do begin
    ax := m[row1,i];
    m[row1,i] := m[row2,i];
    m[row2,i] := ax;
  end;
end;

// выравнивание по правому краю - пробелы перед числом
function trailSpace(num:byte; len:byte):string;
var   s:string;
      i:byte;
begin
  s := ''+num;
  i := s.Length;
  while (i<len) do begin
    s := ' ' + s;
    i := i+1;
  end;
  trailSpace := s;
end;

// вывод матрицы на экран
procedure displayMatrix(var m:matrix);
var i,j:byte;
begin
  for i:=1 to rows do begin
    write('Строка ', i, ': ');
    for j:=1 to cols do begin
      write();
      write(trailSpace(AR[i,j], 4) );
    end;
    writeln(' ');
  end;
end;

BEGIN
  // заполнение массива и вывод его на экран
  randomize();
  for i:=1 to rows do
    for j:=1 to cols do
      AR[i,j] := random(256);
  writeln('Начальный массив');
  displayMatrix(AR);
 
  // ввод данных
  writeln(' ');
  write('введите номер строк которые следует поменять местами: ');
  readln(k1, k2);

  if (k1<=rows) and (k2<=rows) then begin
    SwapRows(k1, k2, AR);
    writeln('Результат');
    displayMatrix(AR);
  end else
    writeln('Номера строк должны быть меньше ', rows);
END.

Написать процедуру с параметрами, обеспечивающую перестановку двух задан- ных строк матрицы. паскаль
vovkiv7864

Для того, чтобы решить данную задачу, необходимо воспользоваться формулой  N = 2^i, где N - максимальное количество цветов в палитре, а i - глубина цвета.

2^8 < 312 < 2^9 

Если мы будем использовать глубину цвета равную 8 битам, то максимальное допустимое количество цветов в палитре будет равняться 256 (так как 2^8 = 256), что не удовлетворяет условиям задачи.

Значит, нам необходимо использовать глубину цвета равную 9 битам, так как при этом значении максимальное допустимое количество цветов в палитре будет равняться 512(так как 2^9 = 512), а значит для кодирования 312 цветов памяти хватит с избытком.

ответ: 9 

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

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

Определите значение переменной s после выполнения фрагмента программы: s:=0; for k:=1 to 5 do for j:=1 to k do s:=s+k;
Ваше имя (никнейм)*
Email*
Комментарий*

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

vickuznetsova8677
Aleksandrovich-Mayatskikh
MikhailovnaAnastasiya
anastasiaevent4
vladislavk-market2
okunevo2010
llipskaya
Сергеевич
Маргарита595
shajmasha
Chuhnin195107364
rkorneev19061
menametov
dmitryshigin
lenarzhaeva