Найти сумму всех чисел из промежутков от А до В, кратных 13 и 5

@Анюта95 · Регистрация: 10.11.2012

Author24 — интернет-сервис помощи студентам

2.Найти сумму всех чисел из промежутков от А до В, кратных 13 и 5 (А и В вводятся с клавиатуры).

я не знаю как писать эти программы,если можно,полностью мне показать,как их писать...я чайник(

@ВеРоЧк_А · 11.11.2012, 21:13

Pascal

program sum135;
 
var A, B, i, sum: integer;
 
begin
sum := 0;
read(A, B);
for i := A to B do
  if (i mod 5 = 0) or (i mod 13 = 0) then
    sum := sum + i;
writeln(sum);
end.

Kodzaev · 11.11.2012, 21:31

Вместо or наверно and

@Анюта95 0 / 0 / 0 Регистрация: 10.11.2012 Сообщений: 13
		1
	Найти сумму всех чисел из промежутков от А до В, кратных 13 и 5 11.11.2012, 10:52. Показов 5914. Ответов 2 Метки нет (Все метки) 2.Найти сумму всех чисел из промежутков от А до В, кратных 13 и 5 (А и В вводятся с клавиатуры). я не знаю как писать эти программы,если можно,полностью мне показать,как их писать...я чайник( 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	11.11.2012, 21:31	3
	Вместо or наверно and 0

Найти сумму всех чисел из промежутков от А до В, кратных 13 и 5

Решение