Question

ПАСКАЛЬ!!!ПОМОГИТЕ ПОЖАЛУЙСТА!!! ДАЮ 17 БАЛЛОВ! ________________________________________________________ Посчитать сумму и количество чисел, которые кратны A, в диапазоне от B до C. (тут должен быть цикл for)

Answer 1

Var a,b,c,s,k,i:integer;
begin
write('b = ');readln(b);
write('c = ');readln(c);
write('a = ');readln(a);
s:=0; k:=0;
for i:=b to c do
 if i mod a = 0
   then begin s:=s+i; k:=k+1; end;
writeln('s = ',s,'  k = ',k);
end. 

Пример:
b = 4
c = 25
a = 5
s = 75  k = 5

Answer 2

........................................

Answer 3

Конечно, я могу помочь вам с задачей на языке программирования Pascal! Для решения этой задачи, нам понадобится использовать цикл `for`, чтобы перебирать числа в заданном диапазоне и проверять, кратно ли они числу `A`. Затем мы будем подсчитывать сумму и количество чисел, которые удовлетворяют этому условию.

Вот пример кода на Pascal, который решает вашу задачу:

program CalculateSumAndCount;
var
  A, B, C, num, sum, count: integer;
begin
  A := 3; // Замените значение на требуемое
  B := 1; // Замените значение на требуемое
  C := 10; // Замените значение на требуемое

sum := 0;
  count := 0;

for num := B to C do
  begin
    if num mod A = 0 then
    begin
      sum := sum + num;
      count := count + 1;
    end;
  end;

writeln('Сумма чисел, кратных ', A, ': ', sum);
  writeln('Количество чисел, кратных ', A, ': ', count);
end.

В этом примере мы предполагаем, что число `A` равно 3, диапазон чисел от `B` до `C` равен от 1 до 10. Вы можете изменить эти значения в соответствии с вашими потребностями.

После запуска программы, она выведет сумму и количество чисел, которые кратны числу `A`. В данном случае, вывод будет следующим:

Сумма чисел, кратных 3: 18
Количество чисел, кратных 3: 3

Надеюсь, эта информация поможет вам решить вашу задачу! Если у вас возникнут еще вопросы, пожалуйста, дайте мне знать.