Var x1, y1, x2, y2: real;
c:char;
begin
repeat
read(c);
until c='>';
read(c);
readln(x1,y1);
repeat
read(c);
until c='>';
read(c);
readln(x2,y2);
x1 := x1*x1 + y1*y1 - x2*x2 - y2*y2;
if (x1 > 0) then
writeln('2-я точка ближе')
else if (x1 < 0) then
writeln('1-я точка ближе')
else
writeln('Точки на одинаковом расстоянии')
end.
Написали бы язык программирования. Вот на java.
<span>import java.io.BufferedReader<span>;
</span>import java.io.IOException<span>;
</span>import java.io.InputStreamReader<span>;
</span>
public class znanie {
public static void main(String[] args) throws IOException {
BufferedReader reader=new BufferedReader(new InputStreamReader(System.in))<span>;
</span> long A=Long.parseLong(reader.readLine())<span>;
</span> long B=Long.parseLong(reader.readLine())<span>;
</span> if((A<0)||(B<0)){
System.exit(0)<span>;
</span> }
long sum=0<span>;
</span> for (long i = A; i <= B; i++) {
if((i%5==0)||(i%13==0)){
sum=sum+i<span>;
</span> }
}
System.out.println(sum)<span>;
</span> }
}
</span>
Ответ:
Решение задачи - в прилагаемом файле.
Program;
var a,i:integer;
Begin
for i:=10 to 99 do
read(a);
if (a mod 10+ a div 10=10) then
write(a);
End.