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

Программирование 10 класс. язык паскаль. в зависимости от количества введенных лет (от 1 до 20) вывести сообщение типа: мне 3 года мне 15 лет мне 1 год

Показать ответ
Ответ:
14062006123
14062006123
13.07.2020 07:03
Program k1;
var a: integer;
begin
writeln ('Введите число От 1 до 20');
readln (a);
if a = 1 then 
writeln('Мне 1 год');
if a = 2 then 
writeln('Мне 2 года');
if a = 3 then 
writeln('Мне 3 года');
if a = 4 then 
writeln('Мне 4 года');
if a = 5 then 
writeln('Мне 5 лет');
if a = 6 then 
writeln('Мне 6 лет');
if a = 7 then 
writeln('Мне 7 лет');
if a = 8 then 
writeln('Мне 8 лет');
if a = 9 then 
writeln('Мне 9 лет');
if a = 10 then 
writeln('Мне 10 лет');
if a = 11 then 
writeln('Мне 11 лет');
if a = 12 then 
writeln('Мне 12 лет');
if a = 13 then 
writeln('Мне 13 лет');
if a = 14 then 
writeln('Мне 14 лет');
if a = 15 then 
writeln('Мне 15 лет');
if a = 16 then 
writeln('Мне 16 лет');
if a = 17 then 
writeln('Мне 17 лет');
if a = 18 then 
writeln('Мне 18 лет');
if a = 19 then 
writeln('Мне 19 лет);
if a = 20 then 
writeln('Мне 20 лет');
end;

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