Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
gambab
29.05.2023 20:14 •
Информатика
Запиши на паскале логическое выражение: одно и только одно из чисел a, b и c - положительное
Показать ответ
Ответ:
tayanika
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 оценок)
Популярные вопросы: Информатика
zeynalova79
13.08.2022 01:55
с Домашкой Pascal ABC Задание на фото....
liza13100
31.07.2021 10:07
с ДЗ. Pascal ABC Задание на фото....
RickeyF2228
03.10.2022 15:40
1) Поштовий сервер – це 2) Що таке етикет електронного листування? 3) Що таке предметна галузь? 4) Модель – це… 5) Інформаційна модель – це … 6) Матеріальна модель – це … 7) Карта...
hard26
08.10.2020 08:17
Дано трёхзначное число. Определить, кратна ли трём сумма его цифр Программа на пайтоне...
gasuslov
26.10.2020 04:43
Программы-переводчики предназначены для......
Камранбек
08.08.2021 17:13
1.со скидкой 8% юбка стоит 1242 руб. сколько стоит юбка без скидки ? 2. со скидкой 12% компьютерный стол стоит 5456 руб. сколько стоит компьютерный стол без скидки?...
rusik20022002
08.08.2021 17:13
Пешеход идёт со скорость 4 км/ч. за какое время он пройдет 12 км...
pennycat
08.08.2021 17:13
Автоцистерна вмещает на 48 тонн меньше,чем ж/д цистерна.всего в них 56 тонн.сколько тонн в каждой?...
danielan2003
08.08.2021 17:13
Как пишется слово картофель в венительном и радительном !...
vnnu
08.08.2021 17:13
Рассказ о по дому на . языке. 4 класс н-р: я мою посуду, застилаю свою кровать. я маме накрывать на стол. я маме мыть посуду...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, b, c: real;
begin
Read(a, b, c);
Write((ord(a > 0) + ord(b > 0) + ord(c > 0)) = 1)
end.