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
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
с решением. Только ответ.)
Автор: Linichuk
Язык программирования QBASIC
Автор: Kashirina
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.