Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
NastjaKucera13
09.08.2021 14:12 •
Информатика
Создать программу. которая при вводе возраста человека от 1 до 100 лет выводит на экран этот возраст с последующим словом "год" или "года" или "лет"
Показать ответ
Ответ:
екатерина699
04.10.2020 11:42
Var i,j: integer;
begin
readln(i);
j:=i mod 10;
if j=1 then writeln (i,' год')
else if (j=2) or (j=3) or (j=4)
then writeln (i,' года')
else writeln (i,' лет')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Drocket
25.04.2022 04:59
Это некоторый объект (человек, животное, техническое устройство выполнять определённый набор команд...
letych
11.06.2022 10:21
УМОЛЯЮ ЭТО ВСЕ КОТОРЫЕ У МЕНЯ ЕСТЬ \1. Преобразуй единицы измерения информации А) 7 Кбайт = __бит Б) 224 бит = 2 ---Кбайт 2. Имеется текст, объем которого 50 килобайт....
arizonacoins
07.05.2020 03:18
вариант 1уровень а.для кого будет информативно следующее сообщение: «программа — это алгоритм, записанный на языке программирования»? а) для дворника; б) для начинающего...
khabarova84
17.07.2021 10:42
Отметьте характеристики предметов и явлений, которые человек воспринимает при органов слуха. тёмный громкий спелый тихий гигантский длинный вкусный...
Lerka0tarelka
17.07.2021 10:42
Найти ошибку дано 3 цифры распечатать все двухзначные числа begin program: adf; begin var a,b,c : =in tege; begin writeln ( write ); read (a,b,c); writeln (a,b); writeln...
Мокааа585
31.03.2022 14:59
Определить главный ключь и и тип записи в отношениях: автобусы(номер маршрута, начальная остановка, конечная остановка)...
егормицевич
06.07.2020 22:48
Установите соответствие между названиями инструментов и их пиктограммами в 3D-редакторе SketchUp РКБТ СОРЧН ...
pro63
31.10.2022 00:50
Как называли солдат из стихотворения бородино ? заранее пасиба.)...
profi1212
31.10.2022 00:50
Найдите область определения функции у=под корнем 4-х^2 /х^2 - 3х...
ослвлвллыб
31.10.2022 00:50
Груз массы m подвешен на вертикальной пружине жёсткости k. определите собственные частоту и период колебаний этой системы....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(i);
j:=i mod 10;
if j=1 then writeln (i,' год')
else if (j=2) or (j=3) or (j=4)
then writeln (i,' года')
else writeln (i,' лет')
end.