Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
vikkkki1
20.01.2022 02:10 •
Информатика
Запиши на паскале логическое выражение: одно и только одно из чисел a, b и c - положительное
Ответ:
ВИТ21
09.10.2020 13:17
var
a, b, c: real;
begin
Read(a, b, c);
Write((ord(a > 0) + ord(b > 0) + ord(c > 0)) = 1)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
валериялера2
12.05.2020 15:02
2. Ашық құжаттағы беттердің санынқалай анықтауға болады?А) жолактын тіркемепарағындаӘ)жолақтың басты тіркеме парағындаБ) Терезенің тақырып жолындаВ) калып-күй жолында2 Ku garan...
Макуегщ
11.05.2022 16:45
Күннің көзі спрайтының орындалатын іс-әрекетін жаз...
elena0795
03.04.2022 07:13
1. Составить блок-схему и программу для вычисления произведения чисел от 1 до 9 2. Составить блок-схему и программу для вычисления суммы квадратов честных чисел от 10 до 20....
АминаКурбанова17
30.05.2020 08:01
1. Инструменты SketchUp. Найдите соответствие инструментов на рисунке и названий. *...
Zazoo12365
06.11.2021 11:11
В каком случае Можно отменить выполненное действие...
раопп
22.01.2020 10:14
Input file: стандартный поток ввода output file: стандартный поток вывода time limit: 1 секунда memory limit: 256 мбайт инна любит необычные вещи. недавно она увидела в магазине...
chmv555
22.01.2020 10:14
Сколько времени будет скачиваться аудиофаил размером 7200кбаит при иниернетсоеденении с максимальной скоростью скачивания 192 кбит.с...
barmeb11
22.01.2020 10:14
Дан массив из n элементов целого типа. определить количество элементов, кратных a...
Gafana
28.01.2023 17:10
Акцизы включаются в цену товара и оплачиваются покупателями прибыль организации...
luiza151661
28.01.2023 17:10
В связи с введением налога на добычу полезных ископаемых были отменены платежи за пользование недрами...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
a, b, c: real;
begin
Read(a, b, c);
Write((ord(a > 0) + ord(b > 0) + ord(c > 0)) = 1)
end.