СРОЧНО!!! ПРОГРАММА С ВЕТВЛЕНИЕМ!!! Составьте программу, которая по введенному вами k-число грибов, печатает фразу: "Мы нашли в лесу k грибов" причем
5-9 класс
|
согласовывает окончание слова «гриб» с k.!!!
var k:integer;
begin
writeln('Input number of mushrooms: ');
Readln(k);
if k=1 then Writeln('Mi nashli ',k,' grib')
else
if (k=2) or (k=3) or (k=4) then Writeln('Mi nashli ',k,' griba')
else
Writeln('Mi nashli ',k,' gribov');
readln;
end.
var
count:integer;
begin
write('Введите количество грибов '); readln(count);
write('Мы нашли в лесу ', count);
case count div 10 of
1: writeln(' грибов');
else
case count mod 10 of
0, 5..9: writeln(' грибов');
1: writeln(' гриб');
2..4: writeln(' гриба');
end;
end;
end.
Другие вопросы из категории
а) мальчик ест АРБУЗ;
б) девочка собирает в поле букет ЦВЕТОВ;
в) мужчина выбирает КНИГУ в магазине;
г) слепой человек читает КНИГУ с использование азбуки Брайля;
д) волк охотится за ЗАЙЦЕМ;
е) спортсмен ныряет в ВОДУ.
из 10-литрового сосуда отлить в 7-литровый ровно 5 литров бензина?
если расстояние и время прохождения вводятся с клавиатуры
Читайте также
<гриб> с числом K. Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т.д. Окончание фразы определяется значением последней цифры.
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!