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.