Toggle navigation
Все ответы
Имя пользователя или адрес электронной почты
Пароль
Запомнить
Вход
Регистрация
|
Я забыл свой пароль
Вопросы
Горячее!
Без ответов
Категории
Задать вопрос
Найти сумму и произведение целых чисел в диапазоне от 1 до 150 кратных 5
0
голосов
70
просмотров
Найти сумму и произведение целых чисел в диапазоне от 1 до 150 кратных 5
найти
сумму
произведение
чисел
диапазоне
5 - 9 классы
информатика
Информатика
Ivanforfard30_zn
(
12
баллов)
31 Май, 18
|
70
просмотров
ответить
комментировать
Ваш комментарий к вопросу:
Отображаемое имя (по желанию):
Напишите мне, если после меня будет добавлен комментарий:
Напишите мне, если после меня добавят комментарий
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста
войдите
или
зарегистрируйтесь
.
Прокомментировать
Отмена
Ваш ответ
Отображаемое имя (по желанию):
Отправить мне письмо на это адрес если мой ответ выбран или прокомментирован:
Отправить мне письмо если мой ответ выбран или прокомментирован
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста
войдите
или
зарегистрируйтесь
.
Ответить
Отмена
Дан
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
задать связанный вопрос
комментировать
Ваш комментарий к ответу:
Отображаемое имя (по желанию):
Напишите мне, если после меня будет добавлен комментарий:
Напишите мне, если после меня добавят комментарий
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста
войдите
или
зарегистрируйтесь
.
Прокомментировать
Отмена
Похожие задачи
Напишите программу для нахождения площади ромба по стороне. Помогите пожалуйста)
Вид списка компьютер пожалуйста
В ШКОЛЬНУЮ КОМАНДУ ПО ВОЛЕЙБОЛУ БЫЛО ОТОБРАНО НЕКОТОРОЕ КОЛИЧЕСТВО УЧЕНИКОВ ИЗ 64...
На автосервисе стоят 507 машин 341 российские и 166 импортных марок. в какой системе...
Определи системы сч: ( в ответ напиши ее основание) 01234 01234567 0123456789АВ помогите...