Помогите пожалуйста на turbo pascal составить алгоритм написания программы при вводе числа любого чтоб определяло окончание гривна, гривен, гривны !!!
Пожалуйста срочно надо!! Например если число 5 то 5 гривен, 3 гривны, 1 гривна!!

1

Ответы и объяснения

Лучший Ответ!
2013-12-15T17:38:30+04:00
var
  s, x: integer;
begin
  writeln('Введите число гривен: ');
  readln(x);
  s := x mod 10;
  case s of
    1: writeln(x, ' гривна');
    2..4: writeln(x, ' гривны');
    5..9, 0: writeln(x, ' гривен');
  end;
end.