1. Що таке мова програмування? Яку мову програмування ви починаєте вивчати? 2. Які складові мови програмування? - id1621180820230320 от dimonnovikov0 20.03.2023 07:42

Question

Информатика: 1. Що таке мова програмування? Яку мову програмування ви починаєте вивчати? 2. Які складові мови програмування? 3. Що належить до алфавіту мови Python? 4. Яку команду застосовують для виведення результату виконання програми? 5. Для чого використовують середовище програмування?​

dimonnovikov0 · Accepted Answer

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.

MOGZ ответил