Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/58: Рейтинг темы: голосов - 58, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 20.04.2013
Сообщений: 10
1

Программа на паскале - Найдите сумму натуральных чисел от 1 до 1000, которые делятся без остатка на 7 и не делятся без остатка на 13

20.04.2013, 18:07. Показов 11016. Ответов 1
Метки нет (Все метки)

Требовалось решить задачу по математике: Найдите сумму натуральных чисел от 1 до 1000, которые делятся без остатка на 7 и не делятся без остатка на 13.
Я написала программу в Pascal ABC и получила все эти числа которые делятся на 7, но не делятся на три.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a,b,c,i:integer;
begin
a:=7;
b:=13;
c:=1000;
for i:=1 to c do
    begin
    if i mod a = 0 then
       if i mod b = 0 then
       writeln(0)
       else
       writeln(i)
    else
    writeln(0);
    end
end.
Но хотелось бы узнать, можно ли так доработать эту программу, чтобы выводились не все числа кратные 7, но не кратные 13, а чтобы выводилась сразу сумма этих чисел. Благодарю заранее.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.04.2013, 18:07
Ответы с готовыми решениями:

Посчитать произведение чисел из 5 заданных, которые делятся без остатка на 3 и не делятся без остатка на 5
Написать программу, которая введет 5 значений и посчитает произведение чисел, которые делятся без...

Количество чисел между 100 и 1000, которые делятся без остатка одновременно на 13 и 15
определите и выведите на экран количество чисел между 100 и 1000, которые делятся без остатка...

Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка
Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка. Вычислить...

Найти сумму чисел от 1 до A которые делятся на 3 без остатка
Пользователь пишет число A. Нужно найти все числа от 0 до А, которые делятся без остатка на 3. А...

1
Заблокирован
20.04.2013, 18:48 2
Цитата Сообщение от tiffany1327 Посмотреть сообщение
Я написала программу в Pascal ABC и получила все эти числа которые делятся на 7, но не делятся на три.
Молодчинка вы.

Модераторы потом перенесут в нужный разрел.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.04.2013, 18:48

Получить N первых натуральных чисел, которые не делятся без остатка на простые числа (кроме 2, 3 и 5)
Дано натуральное число N. Получить в порядке возрастания N первых натуральных чисел, которые не...

Найти и вывести на печать пять первых натуральных чисел, которые делятся на p и на q без остатка
Найти и вывести на печать пять первых натуральных чисел, которые делятся на p и на q без остатка

Найти сумму первых n чисел, которые делятся без остатка на 3
Задание Найти сумму первых n чисел, которые делятся без остатка на 3. Получается я рандомлю...

Найти в первой тысяче натуральных чисел те, которые делятся без остатка на заданное пользователем число
Найти в первой тысячи натуральных чисел только те числа, без остачи делятся на число , введено...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.