Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
delvar25
24.07.2022 04:36 •
Информатика
Найти произведение положительных чисел значение которых не превышают 5 из 10 введённых !
Показать ответ
Ответ:
laowiskskz
09.08.2020 17:29
Program n1;
var a,p,i: integer;
begin
p:=1;
for i:=1 to 10 do
begin
readln(a);
if (a>0) and (a<=5) then p:=p*a;
end;
writeln(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
241cool
16.07.2020 07:45
Выбери верное утверждение. 1) для облачного сервера можно динамически изменять используемые ресурсы памяти процессора. 2) облачный сервер всегда должен находиться в другой организации....
Ronnigun029
03.10.2022 20:00
1) структура данных, в которой можно добавлять и удалять элементы данный по принципу последний вошел-первый вышел . (4 буквы) 5) часть экрана дисплея, в котором открывается программа....
Belka1712
03.10.2022 20:00
Вкаких информационных объектах хранится информация только о живых организмах? 1) геном. 2)буква. 3)слово 4)знак...
Anastasia12578
03.10.2022 20:00
Постройте модели для ниже . какой вы можете сделать вывод на основании полученных моделей ? а) первая бригада может выполнить за а дней, а вторая - за б дней.за сколько дней обе бригады...
Martin45707
05.11.2022 21:47
Функции в MS Excel бывают: информатика ...
Шоколадикус
30.10.2022 04:14
Алгоритм переходу вулиці на світлофорі - це є приклад алгоритму: з розгалуженням з блок-схемою лінійного циклічного...
викатевишкамимимишка
14.07.2020 00:34
Дано число. Если оно больше 3, то увеличить число на 10, иначе уменьшить на 10 Решить в Паскале...
aslanəz
31.08.2021 15:12
придумайте предложения по информатике по слудующей схеме задание 5 , и не пишите ерунду...
Лущік
30.01.2022 07:11
Вэкселе мне нужно создать ячейки, где написано в первой: а-сторна треугольника, во второй ячейке: б-сторна треугольника, в третей ячейке: в-сторона треугольника. при выполнении ,...
pashkevich00
30.01.2022 07:11
Будьте добры ответьте на следующие вопросы: подготовить абзац к изменению параметров, необходимо: а. выделить абзац; б. установить курсор строго на первую строку абзаца; в. установить...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,p,i: integer;
begin
p:=1;
for i:=1 to 10 do
begin
readln(a);
if (a>0) and (a<=5) then p:=p*a;
end;
writeln(p);
end.