Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
3Влад11
10.06.2021 08:32 •
Информатика
Составить программу. введите 7 чисел. найти сумму больше 3 и произведение меньше 3.
Показать ответ
Ответ:
Руфлер
06.10.2020 05:58
Program semchisel;
Var a,i,sum,proiz:integer;
Begin
proiz:=1; sum:=0;
for i:=1 to 7 do
begin
read(a);
if (a<3) then proiz:=proiz*a;
if (a>3) then sum:=sum+a;
end;
Writeln('proiz=', proiz, ' ', 'sum=',sum);
Readln;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
GenGis
13.02.2022 22:05
Построить схему и записать таблицу истинности для функции: F(X,Y) = (не X или Y) и не Y...
rukonya2009
25.07.2020 16:12
тексты содержащие в 1024 символа использован для алфавита мощностью 1024 символа вычеслить информационнгый объем текста в килобайт...
Goodsteve31
01.02.2022 13:06
Разберите алгоритм нахождения простых чисел «Решето Эратосфена» с учебника. Выполните в тетради все шаги этого алгоритма для чисел от 1 до 70...
пжнужнапомощьмне
09.12.2020 19:35
5. Виртуальный компьютер, искусственно созданный с специального программного обеспечения.- это ...a)виртуальная машинаb)консоль виртуальных машинс) эмуляторd)монитор виртуальных...
ololol1213
18.07.2022 09:06
Почему при выключении компьютера из сети и при дальнейшем его выключении время не сбивается?...
ЕваКимСокДжин
13.05.2021 04:23
3) следующий фрагмент программы если х y то если x z то m : = x иначе m : = z все иначе если y z то m : = y иначе m : = z все все вычисляет… a) минимум из трех чисел; b) наименьшее...
alexey2006kost
16.03.2020 04:06
1. на блиц-турнире для решению по информатике было предложено 16 . петр решил №8. сколько информации в данном сообщении? 2.на столе стояла хрустальной ваза, полная конфет....
solnyshko46
19.06.2022 18:37
Составить программу если число положительное, извлечь квадратный корень, в другом случае взвести в квадрат....
kasyanenkoolesy
05.09.2021 17:06
Решите на с++ дана масса m в килограммах. используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг)....
aliceBRATSKAIA
05.09.2021 17:06
1. сколько байт содержит 1/256 часть мегабайта? 2. какое минимальное количество бит потребуется для кодирования целых положительных чисел, меньших 60? 3. сколько символов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a,i,sum,proiz:integer;
Begin
proiz:=1; sum:=0;
for i:=1 to 7 do
begin
read(a);
if (a<3) then proiz:=proiz*a;
if (a>3) then sum:=sum+a;
end;
Writeln('proiz=', proiz, ' ', 'sum=',sum);
Readln;
End.