Toggle navigation
Все ответы
Имя пользователя или адрес электронной почты
Пароль
Запомнить
Вход
Регистрация
|
Я забыл свой пароль
Вопросы
Горячее!
Без ответов
Категории
Задать вопрос
Найти сумму и произведение целых чисел в диапазоне от 1 до 150 кратных 5
0
голосов
69
просмотров
Найти сумму и произведение целых чисел в диапазоне от 1 до 150 кратных 5
найти
сумму
произведение
чисел
диапазоне
5 - 9 классы
информатика
Информатика
Ivanforfard30_zn
(
12
баллов)
31 Май, 18
|
69
просмотров
ответить
комментировать
Ваш комментарий к вопросу:
Отображаемое имя (по желанию):
Напишите мне, если после меня будет добавлен комментарий:
Напишите мне, если после меня добавят комментарий
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста
войдите
или
зарегистрируйтесь
.
Прокомментировать
Отмена
Ваш ответ
Отображаемое имя (по желанию):
Отправить мне письмо на это адрес если мой ответ выбран или прокомментирован:
Отправить мне письмо если мой ответ выбран или прокомментирован
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста
войдите
или
зарегистрируйтесь
.
Ответить
Отмена
Дан
1
ответ
0
голосов
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.
asoiiu_zn
(
2.3k
баллов)
31 Май, 18
задать связанный вопрос
комментировать
Ваш комментарий к ответу:
Отображаемое имя (по желанию):
Напишите мне, если после меня будет добавлен комментарий:
Напишите мне, если после меня добавят комментарий
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста
войдите
или
зарегистрируйтесь
.
Прокомментировать
Отмена
Похожие задачи
В каталоге Май хранился файл Сценарий.dос. Позже этот каталог перенесли в каталог Готово,...
Найти наименьший элемент и наименьший элемент по модулю
Несжатое растровое изображение размером 64 на 512 пикселей занимает 32Кбайт памяти....
В html сделать Вверху страницы поместить многоуровневый маркированный список с ...
Дана целочисленная прямоугольная матрица m*n, заполненная случайными числами. Найти и...