Question

8 класс. Pascal. Решите задачу тремя способами, с использованием всех трех видов циклов (for, while, repeat). Даны два целых числа А и В (А < В). Найти сумму квадратов всех чисел, кратных 3, расположенных в промежутке от A до B включительно, а также количество N этих чиселожалуйста

Answer 1

for, while и repeat соответственно

Answer 2

Для решения данной задачи с использованием трех видов циклов (for, while, repeat) на языке программирования Pascal, вы можете использовать следующий код:

pascalCopy code
program SumOfSquares;
var
  A, B, N, num, sum: integer;
begin
  // Ввод значений A и B
  write('Введите A: ');
  readln(A);
  write('Введите B: ');
  readln(B);
  
  N := 0;  // Инициализация счетчика чисел, кратных 3
  sum := 0;  // Инициализация суммы квадратов чисел, кратных 3

  // Используем цикл for
  for num := A to B do
  begin
    if num mod 3 = 0 then
    begin
      N := N + 1;
      sum := sum + num * num;
    end;
  end;

  writeln('С использованием цикла for:');
  writeln('Сумма квадратов чисел, кратных 3: ', sum);
  writeln('Количество таких чисел: ', N);

  // Сброс значений
  N := 0;
  sum := 0;

  // Используем цикл while
  num := A;
  while num <= B do
  begin
    if num mod 3 = 0 then
    begin
      N := N + 1;
      sum := sum + num * num;
    end;
    num := num + 1;
  end;

  writeln('С использованием цикла while:');
  writeln('Сумма квадратов чисел, кратных 3: ', sum);
  writeln('Количество таких чисел: ', N);

  // Сброс значений
  N := 0;
  sum := 0;

  // Используем цикл repeat
  num := A;
  repeat
    if num mod 3 = 0 then
    begin
      N := N + 1;
      sum := sum + num * num;
    end;
    num := num + 1;
  until num > B;

  writeln('С использованием цикла repeat:');
  writeln('Сумма квадратов чисел, кратных 3: ', sum);
  writeln('Количество таких чисел: ', N);
end.

Этот код сначала вводит значения A и B, а затем использует циклы for, while и repeat для нахождения суммы квадратов чисел, кратных 3, и их количества в заданном диапазоне.