Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3 - Pascal ABC

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

Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3.

Код к задаче: «Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3 - Pascal ABC»

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

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

12   голосов, оценка 4.167 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы