Предприниматель Василий после прочтения знаменитой книжки решил открыть новый бизнес
Предприниматель Василий после прочтения знаменитой книжки решил открыть новый бизнес отгружать апельсины бочками. Партнерам главно знать сколько конкретно бочек апельсинов отгружается каждый день.
Мобильный телефон Василия поддерживает только транслит, потому он передает известья вида "N bochek" . Например, "3 bochki" либо "1 bochka"/ Напишите программку, которая избирает правильное слово (из "bochka" , "bochek" , "bochki" ) в зависимости от N.
1 ответ
Егор Гнездовский
Program vasil ;
var n , m : integer ;
begin
write ( 'vvedi chislo bochek N=' ) ;
readln ( n ) ;
m := n mod 10 ;
if ( m = 1 and n lt;gt; 11 ) then writeln ( n , ' bochka' )
else if (m lt;= 4 and n lt;gt; 12 and n lt;gt; 13 and n lt;gt; 14 and m lt;gt; 0) then writeln ( n , ' bochki' )
else writeln ( n , ' bochek' ) ;
end.
Так, наверное. Если будет косяк, то пиши, или сам сообрази где ошибка. На данный момент нет под рукою компилятора, не могу оттестировать.
var n , m : integer ;
begin
write ( 'vvedi chislo bochek N=' ) ;
readln ( n ) ;
m := n mod 10 ;
if ( m = 1 and n lt;gt; 11 ) then writeln ( n , ' bochka' )
else if (m lt;= 4 and n lt;gt; 12 and n lt;gt; 13 and n lt;gt; 14 and m lt;gt; 0) then writeln ( n , ' bochki' )
else writeln ( n , ' bochek' ) ;
end.
Так, наверное. Если будет косяк, то пиши, или сам сообрази где ошибка. На данный момент нет под рукою компилятора, не могу оттестировать.
Просянова
Эльвира
я здесь внёс несколько правок, смотри как на данный момент
Денчик
на данный момент можешь скомпилировать прогу и испытать?
Виктория Евлампева
аааа, нет. Верно разговариваешь, при нуле будет неправльно. Ща поправлю
Алёна
вот так, наверное. Добавил условие n <> 0. Ну, необходимо протестировать в деле.
Вячеслав Снимаренко
var n, m: integer ; begin write('N = '); readln(n); m := n mod 10; n := n mod 100 div 10; if (n = 1) then writeln(n, ' bochek') else if (m = 1) then writeln(n, ' bochka') else if (m <= 4) and (m > 0) then writeln(n, ' bochki') else writeln(n, ' bochek'); end.
Алла Дистолятор
вот так красивей всего будет, жалко переносы не делает
Эмилия Оболевич
Покритикую. Здесь оператор mod 100 div 10 выделит 10-ки, и только эту одну цифру отправит в выдачу. Напри, для 25 бочек будет выдано 2 2 bochek.
Лубяновская
Юлия
Для n=125 будет тоже выдано 2 bochek. Не очень успешно.
Дмитрий
завтыкала что эта цифра идет в ответ
Мишаня Презанти
begin var n := ReadInteger('n = '); var r1 := n mod 10; var r2 := n mod 100 div 10; if (r2 = 1) or (r1 = 0) then writeln(n, ' bochek') else if (r1 = 1) then writeln(n, ' bochka') else if (r1 <= 4) then writeln(n, ' bochki') else writeln(n, ' bochek'); end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов