tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти сумму и произведение целых
Найти сумму и произведение целых чисел в диапазоне от 1 до 150 кратных 5
Plushtrap
1 25.09.2019 22:50
1
Ответы
sveta05011
08.10.2020 19:28
var
a, sum, pr: integer;
begin
pr := 1;
for a := 1 to 150 do
if a mod 5 = 0 then
begin
sum := sum + a;
pr := pr * a;
end ;
writeln('Сумма кратных 5 = ', sum, #10, 'Произведение кратных 5 = ', pr);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
cJKYSIRJH
10.12.2021 17:20
Напиши элемент схемы, который отсутствует....
vika3443
10.12.2021 17:19
К какому семейству относитья Microsoft World...
LoliTyan1
10.12.2021 17:18
Бельчонок и Ежонок ели ягоды. В начале обеда у них было по 15 ягод у каждого. Ежонок съел несколько ягод, а к этому времени у Бельчонка осталось столько ягод, сколько...
Мандаринка500
10.12.2021 17:17
Установите соответствие между записанным фрагментом и результатом работы: * Количество всех элементов массива, значения которых кратны 5; Количество нулевых элементов...
Kinder281
10.12.2021 17:12
с олимпиадой по программированию...
АлинаЛог
10.12.2021 17:08
Постройте таблицу истинности для логического выражения А^ВvA^не В...
Neznayka56000
10.12.2021 17:08
Вычислите значение логического выражения при X=8. (X 7)и((X =5)или не(X 9)...
Мария12Мария12
10.12.2021 16:55
Расскажите подробнее о Microsoft Office...
Zhania2007
10.12.2021 16:44
Расширение файла программы Excel * .pptx .docx .txt .xlsx...
автормемов
10.12.2021 16:44
имеется неограниченное много бусин пяти разных цветов. Сколько разных цепочек из трёх бусин можно из них составить?...
Популярные вопросы
No1 сұрақ1Азайтуды орында:-...
1
4200-20*х решите этот пример мне очень нужно...
3
(всесвітня історія) написати твір-роздум про реформи Петра очень...
2
Lesson 2SPEAKINGWork in pairs. Ask and answer the questions.Where...
2
При перегонці нафти виходить30%керосину.Скільки керосину можна...
1
Сделайте сор даю он не трудный но мне лень...
2
План характарыстыкі М.Раўбіч з рамана каласы пад сярпом тваім...
3
Під дією сили 2500 Н швидкість руху платформи масою 4000 кг...
1
Чем отличается обособленное определение от обособленного приложения...
2
Имеет ли вертикальную асимптоту график заданной функции y=ϕ(x):...
3
a, sum, pr: integer;
begin
pr := 1;
for a := 1 to 150 do
if a mod 5 = 0 then
begin
sum := sum + a;
pr := pr * a;
end ;
writeln('Сумма кратных 5 = ', sum, #10, 'Произведение кратных 5 = ', pr);
end.