В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
lalaland5
lalaland5
19.08.2021 01:04 •  Информатика

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

Показать ответ
Ответ:
321Shark
321Shark
07.10.2020 04:50
Var
let: array [1..63] of Integer = (5 , 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 ,16 ,17 , 18, 19 , 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, 70, 75, 76, 77, 78, 79, 80, 85, 86, 87, 88, 89, 90, 95, 96, 97, 98, 99);
gad: array [1..9] of Integer = (1, 21, 31, 41, 51, 61, 71 ,81 ,91);
goda: array[1..27] of Integer = (2,3,4,22,23,24,32,33,34,42,43,44,52,53,54,62,63,64,72,73,74,82,83,84,92,93,94);
k: Integer;
begin
for k:=1 to 99 do
begin
if k = let then
begin
writeln('Мне', k, 'лет');
end;
if k = gad then
begin
writeln('Мне', k, 'год');
end;
if k = goda then
begin
writeln('Мне', k, 'Года');
end;

end;

end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота