задачи на оператора выбора. составить программу к задаче: Для ...

Дмитрий

uses crt;var r: byte;beginreadln(к);write('Мне ',к);if r in [5..20] then write(' лет') else  case к mod 10 of 1: write(' год'); 2..4: write(' года'); 5..9,0: write(' лет'); else

writeln('error'); end;end.

через case оч хорошо всё получается)

 

или вот так по подробнее:

 Const st='Мне';Var k: Byte;BEGINRepeat Write('Введите K (от 1 до 99): '); Readln(k);until k in [1..99];Case k of11..20: Writeln(st,' ',k,' лет');Elsebegin Case k mod 10 of 1: Writeln(st,' ',k,' год'); 2..4: Writeln(st,' ',k,' года'); 5..9,0: Writeln(st,' ',k,' лет'); end;end;end;ReadlnEND.