Помогите пожалуйста...написать программу в паскале. Просклонять слово «корзина» для числа в
10-11 класс
|
диапазоне от 1 до 10
Var a:integer; b:string;
Begin
Write('Сколько у вас корзин? '); readln(a);
case a of
1:b:='корзина';
2..4: b:='корзины';
5..10: b:='корзин'
end;
Writeln(a,' ',b);
end.
Комментарий удален
Другие вопросы из категории
Пусть дан массив, содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, конструктор и т. д.), ее стоимость копейках и возрастные границы детей, для которых игрушка предназначена (например, для детей от 2 до 5 лет). Получите информацию:
а) о названиях игрушек, цена которых не превышает 4 рублей и которые
подходят детям до 5 лет;
b) о цене самого дорогого конструктора;
с) о названиях наиболее дорогих игрушек (цена которых отличается от цены
самой дорогой игрушки не более, чем на 1 рубль);
ируемые поледывательностью цифр 35291815 303113241115.Какая последовательность цифр является кодом слова китёнок
1) Найти сумму всех элементов массива, заполненных случайными числами?
2) Найти сумму четных элементов массива?
3) Найти сумму элементов массива, стоящих на четных местах?
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
минимальным элементами массива (включая их)