• 
  • 01 May 2013
  Қазақ тiлi
  • Автор: Юлэня

  

  СРОЧНО!!! ПРОГРАММА С ВЕТВЛЕНИЕМ!!! Составьте программу, которая по введенному вами k-число грибов, печатает фразу: "Мы нашли в лесу k грибов" причем согласовывает окончание слова «гриб» с k.!!!

• 
  • 01 May 2013
  • Ответ оставил: Ninakoroma

  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.

  0
• 
  • 01 May 2013
  • Ответ оставил: Tzareva81

  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.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: қазақ тiлi.
  На сегодняшний день (30.06.2025) наш сайт содержит 91805 вопросов, по теме: қазақ тiлi. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы