Question

Паскаль. Вычислить сумму чисел, оканчивающихся на 3, на отрезке [13,75], Вычислить сумму чисел кратных 3 на отрезке [13,75]. Сравнить полученные суммы и вывести сообщение о том что больше

Answer 1

var i, sum1, sum2: integer;

begin

   sum1:= 0;

   sum2:= 0;

   for i:= 13 to 75 do

       if i mod 10 = 3 then

           sum1:= sum1 + i

       else if i mod 3 = 0 then

           sum2:= sum2 + i;

   if sum1 > sum2 then writeln("Первая сумма больше") else

   if sum2 > sum1 then writeln("Вторая сумма больше");

end.

       

Answer 2

Для решения этой задачи на языке Паскаль можно использовать следующий код:

pascalCopy code
program SumComparison;

var
  number, sumEnding3, sumMultiple3: integer;

begin
  sumEnding3 := 0;
  sumMultiple3 := 0;

  for number := 13 to 75 do
  begin
    if number mod 10 = 3 then
      sumEnding3 := sumEnding3 + number;

    if number mod 3 = 0 then
      sumMultiple3 := sumMultiple3 + number;
  end;

  if sumEnding3 > sumMultiple3 then
    writeln('Сумма чисел, оканчивающихся на 3, больше суммы чисел, кратных 3.')
  else if sumEnding3 < sumMultiple3 then
    writeln('Сумма чисел, кратных 3, больше суммы чисел, оканчивающихся на 3.')
  else
    writeln('Сумма чисел, оканчивающихся на 3, равна сумме чисел, кратных 3.');
end.

Результат выполнения программы будет выведен на экран, сообщая о том, какая сумма больше или равна другой на заданном отрезке.