Среди двузначных чисел найти те, которые делятся на число q, а сумма тех цифр равна n ( 0

Var i, q, n : integer; begin   read(q, n);   for i: =10 to 99 do     if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then       write(i, ' '); end.

Итоги 3 партии: второй: 14; первый: 24. 1) второй в третьей партии проиграл половину, следовательно 14 - это половина того , что у него было; значит первый в третьей партии выиграл 14, следовательно у него было на 14 меньше. итоги второй партии: второй: 14*2=24; первый: 24-14=10. 2) первый во второй партии проиграл половину , следовательно 10 - это половина того, что у него было; значит второй во второй партии выиграл 10, следовательно у него было на 10 меньше. итого первой партии: второй: 28-10=18; первый: 10*2=20. 3) второй в первой партии проиграл половину, следовательно 18- это половина того, что у него было; значит первый в первой партии выиграл 18, следовательно у него было на 18 меньше. итоги до начала игры: второй: 18*2=36; первый: 20-18=2. ответ : 2 монеты было у первого пирата до начала игры. проверка: второй: (36: 2+10): 2=14; первый: (2+18): 2+14=24

Над найти расстояние от точки до центра окружности. прще использовать квадрат расстояния. если он равен квадрату радиуса, то точка на окружности. если меньше, то внутри круга. больше, то вне круга. var xm,ym,xc,yc,r: real; begin   writeln('введите координаты точки xm, ym');   readln(xm,ym);   writeln('введите координаты  центра окружности xc, yc');   readln(xc,yc);   writeln('введите радиус окружности r');   readln(r);   if sqr(r)=sqr(xm-xc)+sqr(ym-yc) then writeln ('на окружности') else   if sqr(r)> sqr(xm-xc)+sqr(ym-yc) then writeln ('внутри круга') else   writeln('снаружи круга'); end. тест №1 введите координаты точки xm, ym 4 2 введите координаты  центра окружности xc, yc 2 2 введите радиус окружности r 2 на окружности тест №2 введите координаты точки xm, ym 3 1 введите координаты  центра окружности xc, yc 2 2 введите радиус окружности r 2 внутри круга тест №3 введите координаты точки xm, ym -1 -3 введите координаты  центра окружности xc, yc 2 2 введите радиус окружности r 2 снаружи круга