задача Div,mod,case Опции

[malou]

Помогайте решить пожалуйста с помощью case div mod.
2. Постановка задачи :Для числа «к» вывести на экран дисплея разу «мы нашли К грибов в лесу» согласовав окончание слова «гриб» с числом «к».к натуральное число. Если не так тема то прошу изменить название

[volvo]

case k mod 10 of
...
11,12,13,14 : writeln('mbI nawlu gribov v lesy');

Как остаток от деления на 10 может быть больше 10?

var
  k: byte;
  s: string;
begin
  writeln('Bbedute kol-Bo gribov');
  readln(k);

  if k in [11, 12, 13, 14] then s := 'ov'
  else
    case k mod 10 of
      1     : s := '';
      2 .. 4: s := 'a';
      0,5..9: s := 'ov';
    end;
  writeln('mbI nawlu ', k, ' grib' + s + ' v lesy');
  readln;
end.

[malou]

Как остаток от деления на 10 может быть больше 10?

а какже надо задачу делать? сказаличто с помощью или diw или mod

[malou]

program v;
var
k : byte;
s : string;
begin
writeln('wwedite kol-vo gribov');
readln(k);
if k in [11,12,13,14]  then s:='gribov'
else
case k mod 10 of
1  : s :='grib';
2..4  : s:='griba';
0,5..9:s :='gribov';
end;
writeln('gribov');
readln;
end.

всегда выводит грибов в чем ошибка?

ТЕГИ
Мы постоянно за тебя их ставить должны ?


Сообщение отредактировано: volvo - 2.11.2006 21:42