Дистанционная подготовка: Где ошибка? Вроде всё верно (Паскаль)
Где ошибка? Вроде всё верно (Паскаль)
от Ришат Латыпов - Среда 20 Июль 2016, 18:15
1448. Апельсины бочками
  var n:word;
begin
  n:=0;
  readln(n);
  if (n=0) then writeln(n,' bochek')
  else if (n=1) then writeln(n,' bochka')
  else if ((n>=2) and (n<=4)) then writeln(n,' bochki')
  else if ((n>=5) and (n<=20)) then writeln(n,' bochek')
  else begin
    write(n);
    n:=n mod 10;
    if (n=0) then write(' bochek')
    else if (n mod 10=1) then write(' bochka')
    else if ((n>=2) and (n<=4)) then write(' bochki')
    else if ((n>=5) and (n<=9)) then write(' bochek');
  end;
end.
Re: Где ошибка? Вроде всё верно (Паскаль)
от Антон Кваша - Четверг 21 Июль 2016, 14:07
  Например n = 112. Ваша программа выведет "112 bochki", хотя правильно "112 bochek".