Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
polinapoluunaa
18.11.2020 12:19 •
Информатика
Разработать алгоритм. даны три числа: a,b,c. определить произведение положительных чисел.
Показать ответ
Ответ:
daniil358
21.07.2020 20:19
Var
a, b, c, s:integer;
begin
s:=1;
readln(a, b, c);
if (a<=0) AND (b<=0) AND (c<=0) then
writeln('Среди чисел a, b, c нет положительных чисел')
else
begin
if a>0 then
s:=s*a;
if b>0 then
s:=s*b;
if c>0 then
s:=s*c;
writeln(s);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Дони1214
12.02.2022 11:39
Как можно использовать анимационные и звуковые эффекты в презентации?...
klubnichka10
04.12.2020 21:53
Какие ошибки были допущены в программном коде...
shils
23.08.2022 03:08
Как сделать сову в кумире...
777497
28.05.2021 22:19
Попробуйте сформулировать содержание оптимального планирования для своей учебной деятельности....
лосимус
04.04.2022 22:43
из 5 Написание комментария Чтобы выполнить задание, откройте у себя на диске документ. Пример документа.docx Задание: найти самый последний по дате комментарий и записать в точности...
dynn
09.03.2022 10:08
6-тапсырма. Сөздерді мағынасына қарай сәйкестендір.1. Әпкемніңa. иірді2. ЖіпӘ. жасауы3. Құрақкөрпеб. кидім4. ТымағымдыB. тікті5. ҚайыңдыГ. Күлді6. ЖағымсыпҒ. шүйіремінД. Иді7. Мен...
maxtigr24
21.11.2020 02:30
решить всё до 7 номера расстояние от линзы до предмета d1 и расстояние от линзы до изображения d2 связаны соотношением 1/f1 + 1/d2 =1/f, где f главное фокус расстояние линзы. найти...
Анна5454554
22.04.2023 01:39
D 1. Каким образом проходило время в доме Туркиных? Почему автор не по-казывает трудовые будни семьи?2. В сцене чтения Верой Иосифовной своего романа перед читателямипредстают два...
9827816
22.04.2023 01:39
У 5 класі з 30 учнів 32 % віддають перевагу заняттям музикою, 48% - заняттям спортом, решта – іноземним мовам. Скільки учнів віддають перевагу іноземним мовам?...
klimenkovlad598
23.01.2020 13:21
Путешествие в древний Казахстан. Урок 1 Выбери правильный вариант ответа.Первыми одомашнили лошадьботайцыандроновцыКельтминарцы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, c, s:integer;
begin
s:=1;
readln(a, b, c);
if (a<=0) AND (b<=0) AND (c<=0) then
writeln('Среди чисел a, b, c нет положительных чисел')
else
begin
if a>0 then
s:=s*a;
if b>0 then
s:=s*b;
if c>0 then
s:=s*c;
writeln(s);
end;
end.