Дано двухзначное число. Определить: кратна ли трем сумма его цифр?
(блок схема)

Объяснение:

Если вводится естественное двузначное число:

var n,s:integer;

begin

write('n = ');

readln(n);

s:=(n div 10)+(n mod 10);

writeln('s = ',s);

if s mod 3 = 0

then writeln('Сумма цифр кратна 3')

else writeln('Сумма цифр не кратна 3');

end.

Пример:

n = 56

s = 11

Сумма цифр не кратна 3

самое близкое число, к числу 25952, которое читается одинаково слева направо и справа налево это число: 26062.

26062 - 25952 = 110 секторов проверила программа за 2 секунды

110 : 2 = 55 секторов проверяет программа за секунду

р треугольника= сложить все стороны