Question

Составьте программу (Паскаль) вычисления суммы квадратов чисел от 10 до 100, делящихся без остатка на 7 совсем не знаю, как это делать :с, люди добрые помогите

Answer 1

var

s,k: integer;

begin

s:= 0;

for k:=10 to 100 do

if k mod 7 = 0 then

s:= s+sqr (k);

writeln (s);

end.

Answer 2

Конечно, я помогу вам составить программу на языке Паскаль для вычисления суммы квадратов чисел от 10 до 100, которые делятся без остатка на 7. Ниже представлен код:

pascalCopy code
program SumOfSquares;

var
  num, sum: integer;

begin
  sum := 0;

  for num := 10 to 100 do
  begin
    if num mod 7 = 0 then
    begin
      sum := sum + num * num;
    end;
  end;

  writeln('Сумма квадратов чисел от 10 до 100, делящихся на 7 без остатка: ', sum);
end.

Обратите внимание на оператор mod, который вычисляет остаток от деления числа на 7. Если остаток равен нулю, то число делится на 7 без остатка.

Программа просто перебирает числа от 10 до 100 и, если число делится на 7 без остатка, добавляет его квадрат к переменной sum. В результате будет выведена сумма квадратов всех таких чисел.