Меню сайта

Задача №15

Ввести возраст от 1 до 99. В зависимости от введенного возраста вывести фразу «Мне…лет(год, года)»


Program case_4-

Var k:integer-

Begin

Writeln(‘Введите возраст’)-

Readln(k)-

Case — k mod 10 of

1:Writeln(‘Мне ‘,k,’ год’)-

2..4:Writeln(‘Мне ‘,k,’ года’)-

0,5..9:Writeln (‘Мне ‘,k,’лет’)-

Else Writeln(‘такого возраста не существует’)-

end-

Readln-

End.

Категория: Разветвляющиеся программы | Дата: 09.01.13

Меню раздела
Блок