Составьте программу на Паскале,фото ниже,заранее спасибо!
5-9 класс
|
var n,k: integer; begin write('Введите сумму (копейки не предлагать!): '); readln(n); write(n,' рубл'); case n mod 100 of 11..14: writeln('ей.'); else case n mod 10 of 1: writeln('ь.'); 2..4: writeln('я.'); 0,5..9: writeln('ей.'); end; end; readln; end.
Другие вопросы из категории
положительных чисел, введённых с клавиатуры. 4. Найти все трёхзначные числа, сумма цифр которых больше заданного числа.
512Кбайт, 2Мбайт, 4Мбайт, 64Мбайт. Какую из них можно купить для вашей работы?
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.
пути:
направо,-"Коня потеряешь"
налево,-"голову сложишь"
вперёд,-"невесту найдёшь"
2.Составить прогрмму,которая определяет положительное число или отрицательное.
3.Дано целое число А.Если значение А>0,то необходимо его уыеличить на единицу.Если В<0,то уменьшить на единицу.
Зарание спасибо :)