А)паскаль программа для создавания программ)0
Program abs;
var x,y,z:integer;
begin
readln(x);{первое число}
readln(y);{второе число}
z:=x+y;{их сумма}
if (z mod 3)=0 then
writeln(''Yes'')
else writeln(''NO'');
end.
//0) Мы хотим найти сумму цифр четырёхзначного числа x.
//1) Сохраним первую цифру числа x:
int a = x / 1000;
//2) Сохраним вторую цифру числа x:
int b = (x / 100) % 10;
//3) Сохраним третью цифру числа x:
int c = (x / 10) % 10;
//4) Сохраним четвёртую цифру числа x:
int d = x % 10;
// Ответ: a+b+c+d
int ans = a + b + c + d;
<u>Алгоритм</u>
Берем ряд чисел от 10 до 99 и выводим те из них, которые удовлетворяют условию. Цифры числа получаем путем нахождения целой части деления числа на 10 (старшая цифра) и остатка от такого деления (младшая). Если число кратно 13, то остаток от его целочисленного деления на 13 нулевой.
<u /><u>Программа</u>
<em>( PascalABC.NET 3.2, сборка 1385 от 14.02.2017 )</em>
begin
Range(10,99).Where(n->(sqr(n div 10)+sqr(n mod 10)) mod 13=0).Println
end.
<u>Результат</u>
15 18 23 32 46 47 51 64 69 74 79 81 96 97