найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!
5-9 класс
|
иришка20011
09 февр. 2014 г., 21:18:07 (10 лет назад)
зЗайка
09 февр. 2014 г., 22:17:57 (10 лет назад)
var
i, s: integer;
begin
s:= 0;
for i:= 50 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;
writeln(s);
readln;
end.
Ответить
Другие вопросы из категории
Читайте также
Выполнить в программе Geany.Паскаль.Пожааалуйста) Задача 1. Вывести на экран последовательность из N чисел (N задаётся пользователем): 5, -10,
15, -20,
25, …
Использовать цикл for и условие в нём.
Задача 2.Найти сумму чисел от 1 до 100, кратных 7. Кратность находим при помощи операции mod
помогите ребята плиз прошу вас 1)найти сумму чисел кратных 3 но не делющиеся на 2 от 100 до 150 2) вывести сумму чисел от 50 до 100
через 5
заранее спс
Найти сумму чисел от 1 до 100.Вычислить QBASIC
что-то вообще не могу ее решить (((( вроде легкая, училка все-равно говорит неправильно-неправильно.Последний шанс остался(((
1)Составить программу нахождения суммы квадратов чисел от 25 до 125.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Вы находитесь на странице вопроса "найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.