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

Формулировка задачи:

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

Код к задаче: «Вычислить сумму чисел с промежутка [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4 - Pascal ABC»

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 3.923 из 5


СДЕЛАЙТЕ РЕПОСТ