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

Объяснение:

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

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

3+3-3: 3=5

3-3+3+3=6

3: 3+3+3=7

3*3-3: 3=8

3*3*3: 3=9

3* 3+3: 3 = 10

на паскале:

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.