Найти сумму чисел кратных семи от 10 до 600
10-11 класс
|
program P1;
var
i,summ : integer;
begin
summ := 0;
for i := 10 to 600 do
if i mod 7 = 0 then
summ := summ + i;
writeln('Otvet: ',summ);
readln;
readln;
end.
Другие вопросы из категории
0.1111101(2 внизу); -9456532(10 - внизу); 1АB4A7,A(16 внизу).
Читайте также
2) Задано целое положительное число А и В. Найти квадратные корни целых чисел в интервале от А до В. Замечание: A<B
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
_______________________
от 15 до 25 ________________________
от -10 до -20 ___________________________
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6. Пример работы программы: Входные данные Выходные данные 3 12 25 6 18 20.2