Апельсины бочками Бизнесмен Василий после прочтения известной книги решил открыть новый бизнес — отгружать апельсины бочками. Партнёрам важно знать, сколько именно бочек апельсинов отгружается каждый день.
Мобильный телефон Василия поддерживает только транслит, поэтому он передаёт сообщения вида "n bochek". Например, "3 bochki" или "1 bochka".
Напишите программу, которая выбирает правильное слово (из "bochka" , "bochek" , "bochki" ) в зависимости от значения n.
Входные данные
Одно целое число n (0≤n≤1000).
Выходные данные
Соответствующая фраза на транслите (см. примеры).
Примеры
Ввод
1
3
15
Вывод
3 bochki
1 bochka
15 bochek
Объяснение:
1. Числа Фибоначчи
function Fibon (n:integer):longint;
var fib_1,fib_2,fib:longint;
i :integer;
begin
if (n<3) then Fibon:=1
else
begin
fib_1 := 1;
fib_2 := 1;
i:=2;
while i<n do
begin
fib:=fib_1+fib_2;
fib_1:=fib_2;
fib_2:=fib;
i:=i+1;
end;
Fibon := fib;
end;
end;
begin
writeln('Fib(',40,') = ',Fibon(40));
readln;
end.
Числа кратные к
program sumkr;
var
n,i,r,k: integer;
sum: longint;
begin
write('Введите число n (1<=n<=4): ');
readln(n);
r:=1;
for i:=1 to n-1 do
r:=r*10;
write('Введите число k: ');
readln(k);
i:=r;
while i <= r*10-1 do
begin
if i mod k=0 then sum:=sum+i;
i:=i+1;
end;
writeln('Сумма чисел от ',r,' до ',r*10-1,' кратных ',k,' = ',sum);
readln;
end.
===
3. НОК
program NOK_a_b;
var a, b, nod, nok,p: integer;
begin
writeln('Введите а и в ');
readln(a, b);
p:=a*b;
while (a <> 0) and (b <> 0) do
if a > b then a := a mod b
else b := b mod a;
nod := a + b;
nok:=p div nod;
writeln('НОК= ', nok);
readln;
end.
program raf105;
var a:array[1..30,1..20] of string;
i,j,o:integer;
s:string;
begin
for i:=1 to 30 do
for j:=1 to 20 do
a[i,j]:= '';
writeln('Вводите слова по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(s);
if s <> '0'
then
begin
o:= o+1;
for i:=1 to length(s) do
a[o,i]:= s[i];
end;
until s = '0';
writeln;
writeln('Вывод:');
for i:=1 to o do
begin
for j:=1 to 20 do
if a[i,j] = 'а'
then a[i,j]:= 'о';
for j:=1 to 20 do
if j <> 1
then
begin
a[i,1]:= a[i,1] + a[i,j];
a[i,j]:= '';
end;
writeln(a[i,1]);
end;
end.