Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Для целого число k от 1 до 99 напечатать фразу "Мне k лет" учитывая при этом что при некоторых значениях k слово лет "лет" надо заменить на " год" или " года"

Ответ оставил Гость

Var r,k: byte;beginreadln(k);write(Мне ,k);if r in [5..20] then write( лет) else  case k mod 10 of1: write( год);2..4: write( года);5..9,0: write( лет);else
writeln(error);end;end.