Вычислить сумму чисел с промежутка [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4

@МарьЯна · Регистрация: 01.10.2015

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

Вычислить сумму чисел, принадлежащих промежутку [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4.

@kot96 · 01.10.2015, 17:46

Наверно в задании предполагался массив, но не хотел гадать

Pascal

program ex;
var a,b,i,sum,t,count:integer;
 
begin
write('Введите границу А: ');
readln(a);
write('Введите границу B: ');
readln(b);
if a > b then
  begin
  t:=a;
  a:=b;
  b:=t;
  end;
  t:=1;
for i:=a to b do 
  begin
  sum:=sum+i;
  if (t mod 4 = 0)and(i = 0)then
  inc(count);
  end;
writeln('Сумма элементов принадлежащих данному отрезку = ', sum);
writeln('Количество нулей стоящих на местах кратных 4 = ', count);
end.

@APALoff · 01.10.2015, 17:48

Ваша тема Вычислить произведение чисел с промежутка (A, B], количество отрицательных чисел, стоящих на местах, кратных 3
принципиально ничем не отличается от этой - небольшие "косметические" правки принесут Вам решение.

Добавлено через 1 минуту

Не по теме:

Ну вот, афтар уже и все на блюдечке принёс... не дал ТС-у мозгами пошевелить.

@МарьЯна 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 6
		1
	Вычислить сумму чисел с промежутка [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4 01.10.2015, 16:43. Показов 4232. Ответов 2 Метки нет (Все метки) Вычислить сумму чисел, принадлежащих промежутку [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	01.10.2015, 17:48	3
	Ваша тема Вычислить произведение чисел с промежутка (A, B], количество отрицательных чисел, стоящих на местах, кратных 3 принципиально ничем не отличается от этой - небольшие "косметические" правки принесут Вам решение. Добавлено через 1 минуту Не по теме: Ну вот, афтар уже и все на блюдечке принёс... не дал ТС-у мозгами пошевелить. 0

Вычислить сумму чисел с промежутка [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4

Решение