Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i); end; end.
//1б Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if x1+x2+sqr(x1+x2)=i then writeln(i); end; end.
//2 Var i,n,a,k1,k2:integer; begin readln(n); for i:=1 to n do begin readln(a); if a<1985 then k1:=k1+1; if a>1990 then k2:=k2+1; end; writeln('Родившиеся до 1985:',k1); writeln('Родившиеся после 1990:',k2); end.
Y-Y в среднем разряде, конечно же, даст 0. Можно ли считать, что Х=0? Нет, по условию X>Y, а Y не может быть отрицательным. Остается предположить, что от Y для вычитания в младшем разряде "заняли единичку", а для вычитания в среднем разряде тоже "заняли единичку" в старшем разряде. В семиричной системе единичка - это 7 (как и в десятичной - 10). Получаем следующие соотношения: Y+7-X=Z младший разряд Y+7-1-Y=X средний разряд ⇒ X=6 X-Y-1=Z старший разряд
Подставляем 6 вместо Х в остальные соотношения Y+7-6=Z; Y+1=Z 6-Y-1=Z; 5-Y=Z Правые части равны Z, приравниваем левые части Y+1=5-Y; 2Y=4 ⇒ Y=2
Var x,y:real;
Begin
write('Введите x,y: ');readln(x,y);
writeln('P = ',2*(x+y):0:2);
end.