tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу,которая
Написать программу,которая запрашивает возраст человека. если ему 18 и больше лет, то выводит сообщение совершеннолетний иначе - несовершеннолетний
Ququki
2 15.07.2019 01:10
5
Ответы
zkulikiv
03.10.2020 04:26
Program Program1;
var
A:Real;
Begin
readln(A);
if A>=18 then writeln('Совершеннолетний') else writeln('Несовершеннолетний');
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ivankasranka2
28.06.2019 11:00
Надо сделать в паскале 1)дан одномерный массив вещественных чисел. найти минимальный элемент массива. 2) дана последовательность 7 чисел. вычислите сумму элементов...
Беня2018
12.12.2020 03:14
Cколько времени потребуется для передачи файла объемом 12500 Кбайта, если скорость передачи 9 Мбит/с?...
juter
12.12.2020 03:15
Опишите добавления диаграммы в MS Excel....
jankirik
12.12.2020 03:15
Что означает команда данный объект...
Liusia200
02.03.2020 21:25
Вставка таблиц, рисунков и диаграммы в презентации...
Vladko1337lol
02.03.2020 21:24
Сделайте поэтапное решение (что переходит куда и как). От ❤️...
sasacot
29.03.2020 13:10
Список степеней Используя генератор, составьте список S , заполненный степенями числа X от 0 до N−1 и распечатайте его инструкцией print(S). Входные данные В двух...
NastyaCat21
29.03.2020 13:08
по информатике . В 3 задании в конце ,,палитре,,...
FlexxZ000
29.03.2020 13:05
Подробно ответить на во по ОС 1 Перечислить три преимущества файловой системы NTFS по сравнению с файловой системой FAT. 2 Какие два фактора следует принять во внимание...
cnejniyrayp08ixm
22.10.2020 15:11
Задание 2. Расставьте знаки препинания. 1. Скоро поезда начнут повсеместно летать считают инженеры.2. Экраноплан это судно на воздушной подушке ответил папа Такойранеторт...
Популярные вопросы
Петрушевская котёнок господа Бога План...
1
Можно под (б) по действиям ...
3
Кислород Не реагирует С волородом С серебром С метаном С сульфитои...
2
Укажите глагол I спряжения. Выберите один ответ: a. шить b. значить...
1
Непонятные слова в рассказе Лесная капель, пришвин...
2
Сторона прямоугольного треугольника, прилежащая к прямому углу...
3
Задать ворпроси виделенних слов...
2
План по произведению М. Ю. Лермонтова «Герой нашего времени»...
1
Разница двух чисел равна 12. Определите большее число, если 1/3...
3
Жанр сказания по белгородском киселе ...
1
var
A:Real;
Begin
readln(A);
if A>=18 then writeln('Совершеннолетний') else writeln('Несовершеннолетний');
End.