После тяжелого дня в школе и изнуряющего домашнего задания, Слава решил расслабиться и поиграть в компьютер. Однако, в это же время домой вернулся папа Славы и попросил его о небольшом одолжении. Мальчику нужно было взять семейный реликтовый параллелепипед размера A × B × C и отнести его бабушке на хранение. По дороге Слава совсем замечтался и, к своему глубокому сожалению, поскользнулся, замарав все стенки параллелепипеда ровным слоем грязи. К счастью, семейный параллелепипед состоит из единичных кубиков (размера 1 × 1 × 1). Чтобы семья не разозлилась, он разобрал весь параллелепипед на кубики и решил помыть каждый из них.

Напевая песенку, промывая каждый кубик, он посчитал, сколько из всех маленьких кубиков 1 × 1 × 1 имеют ровно 0, 1, 2, 3, 4, 5 или 6 грязных стен. Слава не совсем уверен в своих подсчетах и хотел бы свериться с вашей программой ему.

Формат ввода
На вход даются три натуральных числа A, B, C (1 ≤ A, B, C ≤ 1000) — размеры параллелепипеда. Каждое число содержится в новой строке.

Формат вывода
Выведите семь целых неотрицательных чисел через пробел — количество единичных кубиков, у которых ровно 0, 1, 2, 3, 4, 5, 6 стен покрыто грязью соответственно.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

uzil1565

24.12.2021 02:18

Сканер имеет разрешение 256*256 dpi. Отсканированное изображение размером 15*25 см занимает 15 МБ памяти. Чему равна глубина цвета пикселя(в битах) Отсканированного изображения?...

sooooooos1

30.05.2023 22:43

Шаблоном размера п назовем строку длины п. каждый из символов которой входит в множество0, 1, 2, 3, 4, 5, 6, 7, 8, 9, a, b, c,d,e, f, 9, ?Шаблоны преобразуются в строки из цифр...

moiseenkova041

24.04.2021 03:59

1. Ученику необходимо создать таблицу в текстовом редакторе по образцу опишите порядок действий при создании таблицы. Итоговые стенки ученика 7 класса...

Durban1984

08.06.2022 12:55

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 7. Программа получает на вход числа, последовательность оканчивается нулем....

Артем00796678756

11.07.2020 19:59

2. Установи соответствие - Какой из рисунков является: 3D-моделирование 2D -моделирование...

1NatikNatik1

10.11.2020 21:24

Скорость передачи данных через adsl- соединение равна 383000 бит/с. через данное соединение файл размером 4870 кб. определите время передачи файла...

salta19

10.11.2020 21:24

1. за основную единицу измерения количества информации принят … а) 1 бит в) 1 байт с) 1 бод d) 1 бар 2. переведите число 101010101 из двоичной системы счисления в десятичную....

Kamilamar

10.11.2020 21:24

5. в детском саду 52 ребенка. каждый из них любит пирожное или мороженое, или то и другое. половина детей любит пирожное, а 20 человек -пирожное и мороженое. сколько детей любит...

ZORaSsa

10.11.2020 21:24

Нужно составить таблицу на тему: общее и различие операционных систем linux и windows....

leraaleksan

13.11.2022 03:17

Пож скажите мне с информационной точки зрения объясните такой феномен: ощущение человеком вкусов и запахов во сне....

Ответ:

melomicsmel

10.12.2022 01:44

интервал -15,15

c[i,j]:=-15+random(30);

{сумма положительных чисел в каждой строке}

for i:=1 to n1 do begin

s:=0;

for j:=1 to n2 do

if c[i,j]>0 then s:=s+c[i,j];

writeln('суммаэлем-в',i,'–й строки=',s,' ');

end;

{поиск минимума}

min:=c[1,1];{объявить переменную}

i_min:=1;{объявить переменную}

j_min:=1;{объявить переменную}

for i:=1 to n1 do begin

for j:=1 to n2 do

if c[i,j]<min then

min:=c[i,j];

i_min:=i;

j_min:=j;

end;

writeln('Минимальный элемент С[',i,',',j,']=',min);

{замена положительных элементов на 0}

for j:=1 to n2 do begin

s:=0;

for i:=1 to n1 do

if c[i,j]>0 then c[i,j]:=0;

end;

0,0(0 оценок)

Ответ:

Sofia1986

10.12.2022 01:44

интервал -15,15

c[i,j]:=-15+random(30);

{сумма положительных чисел в каждой строке}

for i:=1 to n1 do begin

s:=0;

for j:=1 to n2 do

if c[i,j]>0 then s:=s+c[i,j];

writeln('суммаэлем-в',i,'–й строки=',s,' ');

end;

{поиск минимума}

min:=c[1,1];{объявить переменную}

i_min:=1;{объявить переменную}

j_min:=1;{объявить переменную}

for i:=1 to n1 do begin

for j:=1 to n2 do

if c[i,j]<min then

min:=c[i,j];

i_min:=i;

j_min:=j;

end;

writeln('Минимальный элемент С[',i,',',j,']=',min);

{замена положительных элементов на 0}

for j:=1 to n2 do begin

s:=0;

for i:=1 to n1 do

if c[i,j]>0 then c[i,j]:=0;

end;

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку