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

July 2022 1 23 Report

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

Answers & Comments

krenovut Интересная задачка)
var i,n :integer;
begin
n:=99;
for i:=1 to n do begin
  case i of
  11..14 :writeln('мне ',i,' лет');
  else
case i mod 10 of
1:writeln('мне ',i,' год');
   2..4:writeln('мне ',i,' года');
  else
   writeln('мне ',i,' лет');
end;
   end;
end;
end.

Answers & Comments

najdite predlozheniya v kotoryh est chasticy i obyasnite pozhalujsta 1 ni arg

dany vershiny treugolnika abc najti 1 uravnenie storony ab 2 uravnenie vysot

grammaticheskaya osnova v predlozheniiesli dozhdya utrom ne budet

prodifferencirovat funkciyu v podrobnostyah pozhalujsta

vychislite obem nu gaza kotoryj obrazuetsya pri vzaimodejstvii cinka s rastv

vopros po mhk 9 klasssvyaz teatra s zhivopisyu arhitekturoj dizajnomrol deko

pomogite pozhalujsta s rasschitajte obem kolichestvo veshestva i massu vodoroda

рекомендуемые вопросы

Helpful Links

Helpful Social