Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6.

Answer 1

var n, sum, i: integer;

begin

   sum:=0;

   writeln ('Do kakogo chisla osuschestvit programmu?');

   write('Otvet: ');

   readln(n);

   for i:=0 to n do

       if (i mod 6 = 0) and (i mod 10 = 6) then

           sum := sum + i;

   writeln('Summa: ',sum);

end.