Апельсины бочками Бизнесмен Василий после прочтения известной книги решил открыть новый бизнес — отгружать апельсины бочками. Партнёрам важно знать, сколько именно бочек апельсинов отгружается каждый день.
Мобильный телефон Василия поддерживает только транслит, поэтому он передаёт сообщения вида "n bochek". Например, "3 bochki" или "1 bochka".
Напишите программу, которая выбирает правильное слово (из "bochka" , "bochek" , "bochki" ) в зависимости от значения n.
Входные данные
Одно целое число n (0≤n≤1000).
Выходные данные
Соответствующая фраза на транслите (см. примеры).
Примеры
Ввод
1
3
15
Вывод
3 bochki
1 bochka
15 bochek
program Array8x5;
var
A: array [1..8, 1..5] of Integer;
i, j, imin, imax, jmin, jmax, s, smax: Integer;
begin
// 1. Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10,10] выведите ее на экран.
Randomize;
for i := 1 to 8 do begin
WriteLn;
for j := 1 to 5 do begin
A [i, j] := Random (21) - 10;
Write (A [i, j] :3, ' ');
end;
end;
// 2. Устроить все элементы матрицы и вывести ее на экран.
WriteLn;
for i := 1 to 8 do begin
WriteLn;
for j := 1 to 5 do begin
A [i, j] := A [i, j] * 3;
Write (A [i, j] :3, ' ');
end;
end;
// 3.Найти минимальный и максимальный элементы матрицы и их номера
imin := 1;
imax := 1;
jmin := 1;
jmax := 1;
for i := 1 to 8 do begin
for j := 1 to 5 do begin
if A [i, j] > A [imax, jmax] then begin
imax := i;
jmax := j;
end;
if A [i, j] < A [imin, jmin] then begin
imin := i;
jmin := j;
end;
end;
end;
WriteLn; WriteLn;
WriteLn ('минимальный элемент А[', imin, ',', jmin, '] = ', A [imin, jmin]);
WriteLn ('максимальный элемент А[', imax, ',', jmax, '] = ', A [imax, jmax]);
// 4.Вывести на экран строку, сумма элементов которой максимальна.
imax := 1;
smax := - MaxInt;
for i := 1 to 8 do begin
s := 0;
for j := 1 to 5 do begin
s := s + A [i, j];
end;
if s > smax then begin
smax := s;
imax := i;
end;
end;
Write ('строка ', imax, ': ');
for j := 1 to 5 do
Write (A [imax, j], ' ');
WriteLn;
ReadLn;
end.
впервые начинается как военная задумка в середине ХХ века в разгар холодной войны. В 1962 году Дж.К.Р. Ликлайдер, сотрудник Управления перспективных исследовательских проектов Министерства обороны США (на английском языке эта аббревиатура формулируется как DARPA) озвучил мысль о так называемой "галактической сети" из взаимосвязанных компьютеров.
В 1967 году Лоуренс Робертс из Массачусетского технологического института опубликовал план создания такой сети, которую назвал "Арпанет" (на английском – ARPANET, производное от DARPA). В соответствии с ним, два компьютера оказались впервые объединены в сеть в 1969 году.
В 1972 году эта технология была впервые представлена широкой публике на Международной конференции по компьютерным коммуникациям. В этом же году было отправлено первое сообщение по электронной почте.
Первый веб-браузер был создан в 1990 году сэром Тимом Бернерс-Ли. Он назывался WorldWideWeb и позже был переименован в Nexus[3]. Но первым распространённым браузером с графическим интерфейсом был NCSA Mosaic.
Объяснение: