Erkinbekulbosin
26.02.2020 23:14

1. Задача 1 Кубики ( ів) Петрик допомагає молодшому брату прибирати іграшки. Кубики вони складають у коробку із кришкою, що має висоту K сантиметрів, ширину L сантиметрів та глибину M сантиметрів. Скільки кубиків можна скласти у коробку, якщо всі кубики однакові і кожен має довжину ребра X сантиметрів? Розміри коробки задано цілими числами, кожне з яких не перевищує 1000, довжина ребра кубика – ціле число, що не перевищує 100.
Технічні умови:
Вхідні дані (input.dat): Вихідні дані (output.dat):
Перший рядок вхідного файлу містить число
K, L, M, X через пропуск. В вихідний файл вивести єдине ціле число - максимальну кількість кубиків, які можна скласти у коробку
Приклади вхідних і вихідних даних
input.dat output.dat
50 60 40 5 960

Задача 2 Щасливі числа ( ів)
Усім відомо, що щасливі числа - це ті числа, які складаються тільки із щасливих цифр 7 і/або 4. Петрик вирішив здійснити підрахунок усіх щасливих чисел. Для цього він спочатку підрахував серед однозначних чисел, потім серед двозначних и так далі аж до n-значних. Напишіть програму, яка буде визначати кількість щасливих чисел, кожне з яких буде складатись із не більше ніж n цифр.
Технічні умови:
Вхідні дані (input.dat): Вихідні дані (output.dat):
Єдиний рядок вхідного файлу містить число
n (n <= 16). В вихідний файл вивести єдине ціле число - кількість щасливих чисел

Приклад
input.dat output.dat
2 6
3 14

Задача 3 Точка рівноваги ( ів)
Петрик записав на аркуші паперу n натуральних чисел. Кожне з чисел він пронумерував починаючи з 0. Петрик захотів визначити номер такого числа, серед записаних , відносно якого різниця суми чисел, розташованих ліворуч та праворуч є найменшою. До ть Петрикові виконати це завдання
(якщо таких чисел декілька, вивести те, яке має найменший порядковий номер).
Технічні умови:
Вхідні дані (input.dat): Вихідні дані (output.dat):
Перший рядок вхідного файлу містить число
n (n <= 106) - кількість чисел записаних Петриком. Другий рядок вхідного файлу містить значення чисел через пробіл. В вихідний файл вивести єдине ціле число - порядковий номер числа.

Приклад
input.dat output.dat
11
3 2 1 6 4 3 4 5 2 1 2 5

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
snegjana
27.04.2023 22:16
Var
  s:string;
  m,pk:real;
  a:array[1..20] of real;
  i,k,n:integer;
begin
  Write('Введите число в системе счисления с основанием [2;16]: ');
  Readln(s);
  n:=Length(s);
  for i:=1 to n do begin
    if s[i] in ['0'..'9'] then a[i]:=Ord(s[i])-Ord('0')
    else
      if s[i] in ['A'..'F'] then a[i]:=Ord(s[i])-Ord('A')+10
      else
        if s[i] in ['a'..'f'] then a[i]:=Ord(s[i])-Ord('a')+10
        else begin
          Writeln('Символ ',s[i],' недопустим!');
          Exit
          end
    end;
  Write('Введите основание системы счисления: '); Read(k);
  if (k<2) or (k>16) then begin
    Writeln('Такое значение недопустимо!');
    Exit
    end;
  m:=a[n];
  pk:=k;
  for i:=n-1 downto 1 do begin
    m:=m+a[i]*pk;
    pk:=pk*k
    end;
  Writeln('Десятичный эквивалент введенного числа равен ',m)
end.

Тестовое решение
Введите число в системе счисления с основанием [2;16]: 4e32Ca
Введите основание системы счисления: 16
Десятичный эквивалент введенного числа равен 5124810
0,0(0 оценок)
Ответ:
макс3024
16.04.2021 15:50
А       В         С       не В        не В*C        А+не В*C
0        0         0         1               0                  0
0        0         1         1               1                  1
0        1         0         0               0                  0
0        1         1         0               0                  0
1        0         0         1               0                  1
1        0         1         1               1                  1
1        1         0         0               0                  1
1        1         1         0               0                  1
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота