Какие из приведенных ниже утверждений справедливы?

Хранение информации можно осуществлять без компьютерных сетей.
Хранение информации можно осуществлять без записи на носителе.
Хранение информации можно осуществить без материального носителя.
Хранение информации можно осуществить без изменения параметров поля.

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.

1-й этап

Дано:

а — сумма, получаемая продавцом с продажи каждой из первых 50 газет;

1,2 ⋅ а — сумма, получаемая продавцом с продажи каждой из последующих газет.

Найти:

s — общую сумму, которую получит продавец с продажи 200 газет.

2-й этап

Для нахождения s можно вычислить значение следующего выражения:

50 ⋅ а + 150 ⋅ 1,2 ⋅ а.

Здесь а и s — величины вещественного типа.

3-й этап

Блок-схема

4-й этап

program n_12_63;

var a, s: real;

begin

writeln (‘Подсчет заработка продавца’);

writeln (‘Ввод а‘);

readln (a);

s:=50*a+150*1.2*a;

writeln (‘Продавец заработал ‘, s,’ руб.’)

end.

5-й этап

Протестировать программу можно по следующим данным:

а = 1,

s = 230.

Объяснение: