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
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
kol := 0;
for i := 1 to 10 do
if a[i] mod 2=0 then
begin
kol := kol + 1;
write(a[i],' ');
end;
writeln;
writeln(kol);
End.
2. var a: array[1..10] of integer;
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
kol := 0;
for i := 1 to 10 do
if a[i] > 9 then
begin
kol := kol + 1;
write(a[i],' ');
end;
writeln;
writeln(kol);
End.
3. var a: array[1..10] of integer;
i: Integer;
Begin
for i := 1 to 10 do read(a[i]);
for i := 1 to 10 do
if a[i] mod 2=0 then write(a[i],' ');
for i := 1 to 10 do
if a[i] mod 2=1 then write(a[i],' ');
End.
4. var a: array[1..10] of integer;
i, r: Integer;
Begin
for i := 1 to 10 do read(a[i]);
i := 1;
while i < 10 do
if a[i+1] < a[i] then begin
r := a[i+1];
a[i+1] := a[i];
a[i] := r;
i := 1;
end else i := i + 1;
for i := 1 to 10 do
if a[i] mod 2=0 then write(a[i],' ');
for i := 1 to 10 do
if a[i] mod 2=1 then write(a[i],' ');
End.
5. var a: array[1..10] of integer;
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
for i := 1 to 10 do
if a[i] mod 10 = 5 then kol := kol + 1;
writeln(kol);
End.