Case16. Дано целое число в диапазоне 20–69, определяющее возраст (в годах). Вывести строку-описание указанного возраста, обеспечив правильное согласование числа со словом «год», например: 20 — «двадцать лет», 32 — «тридцать два года», 41 — «сорок один год».
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
program Case16; var Y:Integer; begin Write('Введите возраст: '); Readln(Y); case Y div 10 of 2:write('двадцать '); 3:write('тридцать '); 4:write('сорок '); 5:write('пятьдесят '); 6:write('шестьдесят '); end; case Y mod 10 of 1:write('один '); 2:write('два '); 3:write('три '); 4:write('четыре '); 5:write('пять '); 6:write('шесть '); 7:write('семь '); 8:write('восемь '); 9:write('девять '); end; case Y mod 10 of 0,5,6,7,8,9:write('лет.'); 1:write('год.'); 2,3,4:write('года.'); end; end. |
Другие задачи из раздела Case можно посмотреть здесь.
в последнем case — 7 и 8 тоже относятся к ‘лет.’
Поправил.
Program p16;
var
n:integer;
begin
writeln(‘Введите возраст’);
readln(n);
case n of
20,25,26,27,28,29,30,35,36,37,38,39,40,45,46,47,48,49,50,55,56,57,58,59,60,65,66,67,68,69:writeln(n,’ ‘,’ лет’);
21..24,31..34,41..44,51..54,61..64:writeln(n,’ ‘,’ года’);
end;
end.
Program p16;
var
n:integer;
begin
writeln(‘Введите возраст’);
readln(n);
case n of
20,25,26,27,28,29,30,35,36,37,38,39,40,45,46,47,48,49,50,55,56,57,58,59,60,65,66,67,68,69:writeln(n,’ ‘,’ лет’);
21..24,31..34,41..44,51..54,61..64:writeln(n,’ ‘,’ года’);
end;
end.
А если ввести 15
выведет 5
прошу прощения ответ нашелся