Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
osumika
09.01.2020 14:43 •
Информатика
Написать программу,которая запрашивает возраст человека. если ему 18 и больше лет, то выводит сообщение совершеннолетний иначе - несовершеннолетний
Показать ответ
Ответ:
killskorpion19
03.10.2020 04:26
Program Program1;
var
A:Real;
Begin
readln(A);
if A>=18 then writeln('Совершеннолетний') else writeln('Несовершеннолетний');
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
samal22
16.04.2021 08:38
Запиши верные ответы. ( запиши данное число в двоичной, восьмеричной и шестнадцатеричной системе счисления)...
kalinin11ccc
22.02.2023 14:57
132в 10 степени — 2,8,16 сс 43 в 8 степени — 2,10 сс 1ав в 16 степени — 2,10 сс...
kulaevasvetlan
22.02.2023 14:57
Для заданного натурального числа n не превышающего 3*104 найти все тройки натуральных чисел a, b, c таких, что a + b + c = n и a ≤ b ≤ c. паскаль. : 3...
kz2388
17.10.2020 09:19
Решить на pascal. трапеция задается координатами своих вершин на плоскости: a(x1, y1), b(x2, y2), c(x3,y3), d(x4,y4). найти значение средней линии трапеции....
Saharok00711
26.11.2020 22:02
Сообщение набранное на компе занимает 39 страниц по 27 строк в каждой строке по 35 символов. какой обьем информации несет в байт и кбайт...
Призванный
20.10.2021 01:04
А) наибольший общий делитель следующих пяти чисел 12 24 30 48 и 51 б)наибольший общий делитель произвольных десяти целых двухзначных десяти целых двухзначных чисел 10...
Victoria195
20.10.2021 01:04
100 c++ даны натуральные числа a1, a2, . признак конца последовательности 0. получить min(a1+ a2 , a2 + a3 , (хотя бы идею)...
antonmarusin
14.09.2020 08:43
Для работы технологии ик-порта наличиепрямой видимости: а) обязательноb) необязательно...
morfikk
14.02.2021 12:43
Дано слово из 12-ти букв. переставить его буквы следующим первая, двенадцатая, вторая, одиннадцатая, пятая, восьмая, шестая, седьмая. с++...
ignatevakseniap087h6
22.11.2020 04:39
Вчем отличается форматирование числовых данных от текстовых...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
A:Real;
Begin
readln(A);
if A>=18 then writeln('Совершеннолетний') else writeln('Несовершеннолетний');
End.