Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
M1N1G4M3R1
02.09.2020 19:18 •
Информатика
Составьте программу, запрашивающую возраст и отвечающий " друг", если возраст введён меньше 16 лет, и отвечающую "не знаю тебя" в противном случае.
Показать ответ
Ответ:
сабина423
04.10.2020 01:16
Program p1;
Var a: integer;
Begin
Writeln('Введите свой возраст: ');
Read(a);
If a<16 then
Writeln('Привет друг');
else
Writeln('Не знаю тебя');
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
sashabelousoydf1w
08.07.2021 16:03
При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из символов и содержащий только строчные и прописные буквы латинского алфавита. В...
массисо
28.07.2020 17:55
Задания 1. Пронумеруй слева направо упражнения для пользователей ком- пьютером, представленные на рисунке 4. Назови их и заголни таблицу. Для каких частей тела они предназначены?...
romsik1999
16.09.2021 03:56
Имеется книга 290 страниц на странице 39 строк по 67 символов инф объем в мегабайтах Сим=67•39•290=757 770байтМегабайт...
annasuhanova013нюта
25.07.2020 08:47
Статистические данные. Урок 1 Укажи адреса ячеек, которые используют формат «Время».Верных ответов: 2...
sungatulin22
26.04.2020 10:18
исправить ошибки: 1. Все очень переживали О НАШЕЙ СУДЬБЕ 2. Старший мальчик отнял ОТ малыша игрушку 3. Родители, бабушки и дедушки гордятся ЗА НАШИ УСПЕХИ 4. я внимательно...
Mlpoiuytrewqazxcvbn
26.04.2020 10:18
Определите политические и социально экономические причины крестовых походов Вставьте номера утверждений в соответствующие столбцы.1) Стремление итальянских городов-республик...
VarvaraErrorFell
17.05.2022 02:23
2. На речке 16 рыбаков ловили рыбу. При- шли ещё 4 рыбака. Потом 9 рыбаков ушли.Сколько рыбаков осталось?Схема к задачи....
oznobiseva2006
17.05.2022 02:23
Установіть проміжки знакосталості та нулі функції:а) у = x+x³; б) у = 6; в) у = 1-|x|; г) у = -7x; ґ) у = х + 3; д) у = х² -4;е) у = 3√х....
TS1311
17.05.2022 02:23
Напишите верхние тетрахорды мелодических минорных гамм, перечисленных в предыдущем задании. Подпишите тональности латинскими буквами задание 10...
aregv
17.05.2022 02:23
Interviewer: When did you start acting? Actor: When I (be) 12. I (go) to a drama school, and one day I (sit) in the classroom and a famous film director (visit) the school....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a: integer;
Begin
Writeln('Введите свой возраст: ');
Read(a);
If a<16 then
Writeln('Привет друг');
else
Writeln('Не знаю тебя');
End.