сервис вопросов и ответовКак написать программу которая напишет все целые числа от 1 до 50 которые кратны 9 и посчитает их произведение и сумму
5-9 класс|
|
Volnasig
26 марта 2014 г., 21:18:42 (10 лет назад)
Sawed95
26 марта 2014 г., 22:33:02 (10 лет назад)
Берем цикл от 1 до 50, идем и проверяем все числа на кратность 9, если кратны, то пишем число и добавляем к сумме (и умножаем произведение).
var
sum, mul, i : integer;
begin
sum := 0; mul := 1;
for i := 1 to 50 do
if i mod 9 = 0 then
begin
write (i, ' ');
sum := sum + i;
mul := mul * i;
end;
writeln;
writeln ('sum = ', sum);
writeln ('mul = ', mul);
end.
Ответить
Другие вопросы из категории
Шестиклассники Аня,Боря,Вася,Галя,Даша и Иван получили в подарок флешки на 1,2,4,8,16 и 32 Гб.Выясните кто из ребят получил флешку самого большого и кто -
самого маленького объема ,если известно следующее:у Ани объем флешки меньше,чем у Бори;у Васи больше,чем у Гали;у Даши меньше ,чем у Ивана;у Васи меньше ,чем у Ани;у Даши больше,чем у Бори
Читайте также
1)Напишите программу,которая в последовательности целых чисел определяет количество трехзначных чисел,не кратных 5 и 7 и не заканчивающ
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
Помогите умоляю:)
На паскале печатает на экране в строчку, через запятую все натуральные числа от 1 до 100, которые делятся на это число без остатка
1)Вывести на экран квадраты и кубы нечётных целых чисел от 9 до 1.
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?
а)Одномерный массив A заполнен десятью случайными целыми числами от 1 до 20. Напишите программу вывода элементов массива в обратном порядке.
б)Напишите программу, которая массив из 20 элементов заполнит неповторяющимися целыми числами и выведет на экран элементы с нечетными индексами.
Паскаль абс 2 задачи 1)Написать программу выводящую на экран последовательность чисел от 1 до 10 через пробел в строчку.
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
Вы находитесь на странице вопроса "Как написать программу которая напишет все целые числа от 1 до 50 которые кратны 9 и посчитает их произведение и сумму", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.