Татьяна1301
01.08.2021 16:09

Какие преимущества, по твоему , даёт использование встроенных объектов в программе

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Мялан
26.01.2023 01:21

A) a = 3

print(a**5)

#Здесь не нужно использовать модуль, так как в Пайтоне или Питоне есть функция возведение в степень

B) import math

a = 49

print(math.sqrt(a))

#Здесь добавляем библиотеку или модуль командой import, создаем переменную и с команды math.sqrt извлекаем кв. корень числа 49.

C) import math

a = 7.57

print("Ближайшее наименьшее: ", math.floor(a))

print("Ближайшее наибольшее: ", math.ceil(a))

#Здесь почти все также, как и во 2, но используем 2 команды округления, это math.ceil, до ближайшего и math.floor до наибольшешо числа

0,0(0 оценок)
Ответ:
MashaZhukova12345
08.04.2022 15:05
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота